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BRANCH SUMMATION OF EVASTON PROBABILITY ° 
RRANCH SUMMATION OF KILL PROBABILITY e 
AZIMUTHAL ANGLE OF SEARCHER MEASURED FROM FVANDER (e 
COMPUTATIONAL VARTAIQLE e 
° 

COMPUTATIONAL VARTAILE e 
“ONTROL CONSTANT FOR CLOSE PHASE (DIMENSe 
= NOT IN CLOSF 2HASE ” 
> IN GlOSE PHAS> ° 
CONS yANP USE) FIR NIRMALTZING e 
B® CONSTANT aS “OMPUTED BY LAYERS ROUTINE (SECee2/e 
J) CONSTANT AS 7OMP UTED BY LAYERS ROUTINE (SEC@e2/se 
6? CONSTANT aS 7O0MP UTED BY i ayeRS ROUTINE (Ke 
. 

OMPUTATTONAL VARTAILE ° 
- 

OMPULATPONAL VARJAAL FS ° 
VO CONSTANT aS “OM UTED BY LAYERS ROUTINE ((SEC/Ke 
COSINE OF AVERAGE OF CONVERGFNYT ZONE ANGLES (DIMENS® 
COSINE OF STEERING DEPRESSTON ANGLE FOR SHIPS (DIMENS® 
COSINE OF AZEMUTHAL SIGNAL ARRIVAL ANGLE (DIMENS® 
CONSTANT EQUAL 10 TWO TIMES PY] (DIMENS® 
° 

COMPUTATIONAL VARTAILE x 
Det TA ANGLE FoR CONVERGENT ZONE SEARCH (@ 
SMALLER CONVERGENT ZONE ANGLE CIN RADIANS) FOR FEVADER® 
ARGER CONVERG NT 70 ANGLE CIN RADIANS) FoR EVADER® 
ANGLE BEING USED 702 CONVERGENT SONE RANGE SEARCH (« 
SMALLER CONVERG-NT ZONE ANGLE (IN RADIANS) FOR SEARCHe 
LARGER CONVERGENT ZONE ANGLE (CIN RADIANS) FOR SEARCH® 
RANGE FOR CONVE ?G=ENT 7ONE Ray e 
DEPIW CIN K=¥D) IN (AYER ° 
NIFRFERENCF IN BAFFLING VALUES « 
NIFRERENCE IN ANGLES FOR RAYS (@ 
WIDTH OF CONVERGENT ZONE > 
THICKNESS OF [LAYER ° 
MODIF TED Mu FOR EVADER (DIMENS® 
MODIFIED Mu FOR SEARCHER (DIMENS® 
DEPIW QF ROTSOM ° 
DEPTH OF EVADER $ 
NEPTH OF SEARCHER ® 
MODIFTED VARTANTE FOR EVADER (DIMENS® 
MODIF TED VARTANTE FOR SEARCHER (DIMENS@ 
AZIMUTHAL MAIN=2E4M STEFRING ANGLE FOR SEARCHER (Ce 
AZIMUTHAL MAIN=32E4M STEERING ANGLE FOR SEARCHER (« 
° 

COMPUTATTONAL VARTA3LE ° 
ANGLES USEFI) WITH DIFFERENT DLRECTIVITY CURVES (a 
NyRECTyVyTY PND=X FIR SONAR ° 
DIFFERENCES [IN AN3LES OF DIRECTIVITIES (e@ 
HERIVATIVE COXD 7) FOR RAY TYPE ((SEC/Ke 
DUMMY VARTABLE * 
RANGE peERIVATIV: « 
ARRAY HETGTH CONSTANT CYD-Se 
OF USED OR REQUIRED ® 
NEPTH CIN Kayo) FROM TOP OF LAYER TO STARTING POINT (oe 
FULER ANGLES IN?2UT TO PROGRAM * 
SFE -DEPEVA~ « 
FULERTAN ANGLE AND THETR'SINE AND COSINE (DIMENS® 
CONTROL CONSTANTS FO EVADE PHASE (DIMENS® 
= NOT IN EVADE HASSE * 
= IN EVADE PHaS= ° 
MODIFICA;ION FATTIR FOR PATH PROBABILITIES (DIMENS® 
FRACTION (CONMIAE oa 2/(1-ONMI AE @@2)) (DIMENS® 
FRACTION (CONMIAS®®2/7(01-ONMIAS##2)) (CDIMENS® 
FUNCTION OR FI_TiR RESPONSE OF SEARCHER * 


FUNCTION FOR FI TER RESPONSE OF EyADER 
FLOW AND SELF NOISE FOR SHIPS 

LOWER INTEGRATIIN FREQUENCY FOR EVADER 
LOWER INTEGRATION FREQUENCY FOR SEARCHER 


see 


Ss _ = ee 


Fegasd¢ Y= [NTER-RANGE CONSTANT TIME SORT( FREQUENCY/LAYER DEPTHe 


Pee. FROIDBC . d= TENGLOGC FREQUENCY ) aS a FUNCTION OF SHIP a 

et FRALCNE . DF LAYER ConSTayl aS A FUNCTIng oF FREQUENCY AnD SHIP o 

o2 FROLOWC » = | OWER FREQUENCY OF INTEGRATION « 

et FRONCN( » = NOISE SPECTRA UNA_T2RED BY SONAR DIRECTIVITY ° 

et FRINOS( » 2 FREQUENCY POINTS 3F NOISE AS FUNCTION OF SHIP ° 

a2 FRORES( ) = TRANSDUCER RFESOVANT FREQUENCY FOR SHIPS « 

ae FROSIG( . ds FREQUENCY POINTS JSED FOR SIGNAL COMPUTATIONS * 

Piet FQQTRN( » Y= FREQUENCY RESPONS= JF TRANSDUCER ELEMENTS (DIMENS® 

o> FYTOKY = FUNCTION TO CHANGE FEET TO KILO-YARDS ® 

el G1$0 z ° 

: o> COMPUTATIONAL VARTA3L= ° 
a: 62S) = ° 

j eo? COMPUTATIONAL VARTAIL= ° 
ot GMUSER( ) = MEAN OF SMOOTHED SEARCHFR S/N ° 

e: GMUEVal ») = MEAN OF SMOOTHED ZVaDER S/N * 

? o> 4 = °. 
| et = COMPUTATIONAL VARIABLE ° 
P et HOT 7 ° 
et = COMPUTATIONAL VARIA3LE ° 

i os de 4 = HEADING OF EVAD=R (e 
et 47S) = SURFACE DUCT COVSTANT ° 
Ls eo: ! : « 
ote. = COMPUTATIONAL VARIA3LE ° 

; et INTTLK = LAYFR NUMBER IN WHITH RAY PORTION STARTS (DIMENS® 
o> Jb s ° 

[ 2? = COMPUTATIONAL VARTARLE e 
e2 JUMPIF = CONTROL PARAMET=R FIR RECALCULATING A LAYER CONSTANT e@ 

“s « = INITIALLY THE LAYER IN WHICH THE STARTING POINT IS Foe 

a2 LAYER IN WHICH CA CULATIONS ARE BEING MADE ® 

{ as K = INDEX VARI ARLE JSEN IN INTEGRATION ROUTINE (DIMENS»s 
at L = LAYER IN WHICH FINAL POINT (22) IS LOCATED ° 

ot LaYeRL = | AYER IN WHICH A LOWER VERTEX IS FOUND (pIMENS» 

{ ot LAYERM = LAYER IN WHICH VELOCITY PROFILE HAS A ZERO (DIMENS® 
a> LAYERS = | AYER WHICH CONTAINS SHALLOWER SHIP (DIMENS» 

t ot “ = e 
a> MAXLAY = MAXIMUM NUMBER JF LAYERS ALLOWED INCLUDING ADDED POIN® 

ot MSHIPS = CONTROL NUMBER JF SHI? (DIMENS® 
o: 1 = SEARCHER 2 
‘ os 2 = EVADER ° 
oS N = POINT ON BRANCH (DIMENS® 

P ot NaRRAY( ) = CONTROL PARAMET=R FIR TYPE OF ARRAY (DIMENS® 
) ot NOT USEN OR REQUIRED = 
tJ et NCONCI = CONTROL PARAMET-=R FOR DIFFERENT SUBROUTINES TO BE CALe 
a> NCONSD = AMOS CONSTANT SD ° 

o> NCONSK * = NUMBER OF LAYER CONTAINING SEARCHER (DIMENS® 

| ot NCONSL = NUMBER OF LAYER CONTAINING EVADER (DIMENS® 
ec NCZRAS = e 
= a2 COMPUTATIONAL VARTAAILE ° 
€2 NpsvaT = INTEGER VALUE OF THE D-STATE ° 

f a> Nel = PNINT ALONG BRAVCH WHEN EVADER STARTS EVADING (DIMENS® 
at NESTAT = INTFGER VALUE OF THE E-STATE * 
= at NNFUAG = DFBUG PARAMETER TJ SHOW PROGRAM FLOW * 
e> NR = CONTROL CONSTANT FOR POSTTION JN BRANCHES (DIMENS® 

Lael NS! = POINT ALONG BRAVCH WHEN SEARCHER START CLOSING(DIMENS® 

°2 NSTART = CONTROL PARAMET=R FOR START OF LOOP ° 

7 es NTIMEM = NTIMEN MINUS ONE (CDIMENS® 
et NTIMEN = POSITION ALONG 2ROBABILITY TREE BRANCH (DIMENS® 

a> NUANMO = NUMBER OF ANGLES FO? RAYS MINUS ONE (DIMENS® 

ec NUDIAN( ) = NUMBER OF DIRECTIVITY ANGLES FOR SHIPS (DIMENS® 

et NUMANG = NUMBER OF ANGLE BEING CONSIDERED FOR RAYS (CDIMENS#* 

9c NUMFRQ¢ > = NUMBER OF FREQUENCY POINTS FOR INTEGRATION (DIMENS® 

ot NUMHED = NUMBER OF HEADINGS TO RE CONSIDERED ° 

o> NUMLAY = NUMBER OF LAYERS ° 

ec NUMRNG = NUMBER OF RANGES FOR CLOSEST APPROACH BEING CONSIDERE® 

eS NVTXLO = LAYER NUMRER RE_OW LOWER VERTEX LAYER (DIMENS® 

ot yVTXUP = LAYER NUMBE? IN WHICH RAY VERTEXES (DIMENSe 

o> NZONE = ° 
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OMPMUTATIONAL VARTAILE ° 


) 


) 


QNE MINUS ALPHA (DIMENSe 
ONE MINUS ALPHAS (DIME NSe 
DUMMY VARIABLE O02 COMPUTING PATHLENGTHS ° 
PATH LENGTH OF Q2AY TYPE ° 
e 

PRORARBIL ITY fF DETETTION SY SEARCHER (DIMENS® 
PROMARILITY OF =VASTON AS A FUNCTION OF STATE (DIMENSe 
INTITAL PRORAH!] TTy OF EVADER DETECTION (DIMENSe 
2ANGE OF DETECTION 3Y FVADER r 
PRORARY(L TY OF =VAS;,ON AT FACH BRANCH PO;NT (D]MENSe 
PYORARIL ITY OF SEARCHER EVENT OTHER THAN KILL (DIMENSe 
PRORAQTLITY OF SVADER EVENT OTHER THAN EVADE (DIMENSe 
ANGLE RAY MAKES wIT4 SHIP AXIS (e 
SFr -PRYSFV- (DIMENS® 
PORTORE PRORARTLITY JF DETECTION BY EVADER ° 
. USEN OR REQUIRED e 
SER -PRYSSE- (DIMENSe 
eTOR] PRORABIL!I Ty JF DETECTION BY SEARCHER ° 
T USEN OR RE QUI2ED ° 
PRORARILITY OF <TLL GIVEN DETECTION BY SEARCHE(DIMENSe 
PROKRARILITY OF «ILL AY EACH POINT ON BRANCH (DIMENS® 
aTH LENGTH OF 7aY A 

NOISE POWFR SPETTRUM AS SEEN BY EVADER ° 
NOTSE POWFR SPE 7TRUM AS SEFN BY SEARCHER e 
SFE =PRNOEV= (DIMENS®e 
PRTORT PROMARTLITY THAT NO DETECTION BY EVADER ° 


OF USEN OR REQUI SED ° 


0 


SEE -PRNOSE- (DIMENSe 
PRIOR] PROBABILITY 2F NOD DETECTION BY SEARCHER e 
, USED OR REQUIRED ° 
COMPUTATIONAL VARTARLE e 
PROBABILITY THay POINT ON BRANCH IS PASSED (DIMENSe 
PRORABILITY OF REACHING THE PRESENT POINT (DIMENSe 
b, PeQF-PATH FOR N-MINUS-ONE ° 
RANGE OF FIRST YETECTION BY FEVADER e 
RANGE OF FIRST DETETTION BY SEARCHER e 
PROBABIL TTY OF DETECTION Ry EVADER (DIMENS® 
PROBABIL ITY OF DETECTION BY SEARCHER (DIMENS® 
FVADFR DECISION PRORARILITY OF NO-DETECTION (DIMENS® 
SEARCHER DECISION S20RASTLITY OF NO-DETECTION (DIMENS® 
PROBARILITY )F VOT JEING DETECTED By FVADER (DIMENS® 
PRORABILYTY OF VOT 36;NG DETECTED BY SEARCHER (DY]MENSe 
PRORABILITY OF ATH OF DETECTIONS FOR EVADER(DIMENS® 
PROBABILITY OF ATH OF DETECTIONS FOR SEARCHEI(DIMENS® 
EVADFR DECISION PROBABILITY OF DETECTION (DIMENS® 
SEARCHER DECISION PRORASILITY OF DETECTION (DIMENSe 
INITIAL PROBARI_ITY OF SEARCHER DETECTION (DIMENS® 
RANGE OF DETECTTON 3yY SEARCHER ° 
SIGNAL PQWwER SP=CTRIM AS SEEN BY EVADER 
STGNAL POWER SPSCTRUM AS SEEN BY SEARCHER 
FVADER x-POSITTION Art POINT ON BRANCH 
SEARCHER X-POSTTION AT POINT ON BRANCH 
EVADFR Y-P)SITION AT POINT ON BRANCH 
SEARCHER YePOSTTION AT POINT ON BRANCH 
EVADER 7-P)SITTIAN AT POINT ON BRANCH 
SEARCHER 2=POSITION AT POINT ON BRANCH 
DUMMY VARIABLE 
puMMY VARIABLE 


COMPUTATIONAL VARTASLE 

HORIZONTAL RANG: 3ETWEEN SHIPS AT POINT ON BRANCH 
COMPUTED RANGE FOR Ray TYPE 

HORTZONTAL RANGS 3ETWEEN SHIPS 

HORIZONTAL TRAV=L OF RAY PORTION 


RANGE OF CLOSE 

CONVERGENT ZONE RANSE 

CONVERGENT 20NE RANGE 

HORIZONyAL RANG= OF RAY FOR EACH MODE OF PROPAGATION 
PANGE OF CLOSING TO INITIALIZE RNGCLS PROPER: Y 
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«2 COMPUTATIONAL VARTASLE . 
; re RSDL ° 
' e? COMPUTATIONAL VARTASL = ° 
f ot ScSD . a 
F et COMPUTATIONAL VARTASLE ° 
: o> SNCON = WAVE HEIGTH PARAMETER ° | 
é ] «2 SNCON = SURFACE DUCT CONSTAYI * ; 
: o> SNEPTH = SFE -DEPSFR- ° i 
Fi et Sti = CONSTANT SPFED OF EVANDER (Ke 
i ar SIGPLS( , ¥= SIGNAL TO NOTSE RATIO PLUS ONE FOR SHIPS (pIMENSe 
j [ oo SINPH]( ) = SINE OF STFERING DEPRESSION ANGLES FOR SHIPS (DIMENSe 
§ o> SINRAD( ) = SINE OF AZIMUTHAL SIGNAL ARRIVAL ANGLE (DIMENSe 
: > SLOPFUC ) = SLOPE [N LAYER tte 
i: > SM = SUMMATJON VARTAALE 
[ o: SMPEDT = SUMMATION FOR COMBUTING AVERAGE EyADED DETECTI(DIMENS« 
oe ss e2 SM°SDT = SUMMATION FOR CIMPUTING AVERAGE SEARCHER DETEC(DIMENSe 
o> SMTCNE = TOTAL TIME FVAD=R IS IN CONTACT WITH SEARCHER ° 
et SMTCNS = TOTAL TIME SEARSHER 15 IN GONTACT WITH EVADER ° | 
at SPAFUN 2 FUNCTION TO COM9UTE THE SPA REQUIRED ° 
Cael SPATEV = PROPAGATION SPE=D AT EVADER (Ke 
r te SPATSE = PROPAGATION SPE-D AT SEARCHER ° 
et SPDTFR( ) = SPEED OF PROPAGATION AT SHIPS (Ke 
f o> SPDVER = PHORAGATION SPE=D AT VERTEX OF RAY (Ke 
i > SPI¢ ) = SPRFADING LOSS SONSTANT (DIMENS® 
P a> SPT¢ ) = SPREADING LOSS CONSTANT (DIMENS® 
es SPYRSQ = VERTEX VELOCITY OF 2AY SQUARED ((K-YD2e 
Lae) SQAREAC ) = ARRAY CONSTANT (Yp-Se 
ac SORTZL = ° 
et COMPUTATIONAL VARIAILE ° 
o> SSi = CONSTANT SPEFD IF SEARCHER (Ke 
' o> STATYD = SEE -NDSTAT- ® 
| as STATE = SEE -NESTAT= ® 
Cael STNPEV = SIGNAL TO NOISE RATIO PLUS ONE FOR EVADER (DIMENS® 
es STNPSE = SIGNAL TO NOISE RATIO PLUS ONE FOR SEARCHER (CDIMENS®@ 
ec SUMEVA = ACCUMLATIVE PROJABI_ITY OF EVASION (DIMENSe 
es SUMKIL = ACCUMLATIVE PROSASILITY OF EVASION (DIMENS® 
ge et SUMPTH = SUMMATION OF PATH PQOBABILITIES AT BRANCH ENDS(DIMENS® 
’ #5 SUMTOT = A SUMMATION OF ALL POSSIBILE PROBAB]) JTIES (DIMENS® 
’ o> SURANG( ) = SURFACE ANGLE FOR THE RAY TYPE (e 
i es NOT USED OR REQUIRED ® 
l os TARRIV( , )= TRANSFORMED ARRIVAL ANGLE VECTOR (DIMENS® 
F aes TCONEN( ) = TIME EVADER 1S IN CONTACT AT BRANCH POINT e 
os TCONSN( ) = TIMF SEARCHER 15 IN CONTACT AT BRANCH POINT ° 
et TCZAV1L 2 AVERASE OF CONVERGENT ZONE ANGLES (@ 
| at TCZAaV2 = AVERAGE OF CONVERGENT Z20NeE ANGLES (e 
‘ Cie TI = STARTING ANGLE (IN DEGREES) OF RAY FROM SEARCHER e i 
et TY = TIME INCREMENT ©OR RAY 10 GO X K-YD * 
- ec TIMCON = PROPAGATION TIM® OF RAY e 
| os TIR ( ) © INITIAL ANGLE OF RAY WITH RANGEH (« 
« ie TMATEV( » )= TRANSFORMATION MATRIX FOR EVADER (DIMENS® 
“> TMATRX(4+) = TRANSFORMATION MATRIX (DIMENS® 
o> TMATSE( » )= TRANSFORMATION MATRIX FOR EVADER (DIMENS® 
oe TSTOKY = FUNCTION TO CHANG= KNOTS TO KILO~YARDS/SECOND ° 
Pte TTR ( ) = ARRIVgl gNGLE OF Ray TYPE Ve 
as TVECTR( » Y= TRANSFORME) BEAM-STEERING-DIRECTION VECTOR (DIMENS® 
as TWOALE = TWO TIMFS ALPHA=#82 CDIMENS® 
es TWOALS = TWO TYMES ALPHASoa2 (DIMENSe 
es le = VELOCITY OF PROOAGATION CIN K-yD/SEC) AT POINT IN LAY® 
oS Vv = PROPAGATION SPE=D AT END POINT OF Ray (Ke 
eS VAREVA( ) = VARIANCE OF SMOJTHED S/N FOR EVADER * 
et VaARSERC ) «= VARIANCE OF SMOTTHED S/N FOR SEARCHER * 
as VXE ( ) = X=COMPONENT OF =VaDER VELOCITY aT POINT ON QRaNCH Ke 
as VXEINT = INITIAL FVADER cPSEN IN X-NDIRECTION (Ke 
ae Vxs ( ) = X-COMPONENT OF SEARCHER VELOCITY aT POINT ON QRANCH(Ko 
Cie VYE ( ) & Y-COMPONENT OF EVADER VELOCITY AT POINT ON BRANCH (Ke 
“co VYEINT = INITIAL EVADER SPEED IN Y-DIRECTION (Ke 
o> vyYS ( ) = Y-COMPONENT OF SEARCHER VELOCITY AT POINT ON BRANCH( Ke 
“5 Xx = RANGE (CIN K-Yp) OF HORIZONTAL TRAVEL OF RAY WITHIN Lae 
at x = FRACTIONAL PApT OF LAYER * 
ac XE = SIGNAL TO NOISE RATIO Al EVADER (DIMENS® 
oo XS = SIGNAL TO NOISE RATIO AT SFARCHER (DIMENS®@ 
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Yt = ° 
Y? = ° 
Z71 = GTARTING DEPrCH CIN <-YD) OF RAY ° 
213 = STARTING DEPTH (IN <-Y0) OF CONVERGENT ZONE RAY ° 
213 = DEPTH (IN K-yD) OF ZVADER ° 
22 2 ENDING pEPTH (IN <-yYp) OF Ray . 
223 = ENDING NEPTH (IY <-YD) OF CONVERGENy; ZONE RAY ° 
223 = DEPTH OF FVADER ® 
78 = NFPTH CIN K-vt) OF POINT WITHIN LAYER 10 WHICH RAY IS# 
2) = NEPTH OF MAX OR MIN POINT IN VELOCITY PROFILE a 
ZoOnacz = MODIFIED VALUF YF AZ FOR SIMPLIFICATION (DIMENS® 
ZoNBCZ = MODIFIED VALUE OF BOZ FOR SIMPLIFICATION (DIMENS® 
ZSTART = STARTING DEPTH IF RAY PORTION * 
2VLO = DEPTH CIN KeYN) OF VERTEX POINT OF CONVERGENT RAY ° 
ZvuP = DEPTH OF UPPER VERTEX POINT FOR RAY * 
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NAMELIST 

/ AVERAG 7# 

SUMTOT, SUMKTi, SUMEVA, SUM?TH, 

TRENOR, TREKIL,», TREEVA,. TRE?T4, 

CONNOR, AVFKIL, AVEEVA, AVEOTH, 

SMPFEDYT, SMPSNT, SMTCNS, SMTTNE, PERANG, PSRANG 

y, BOTTOM ¢ 

TIR, TTR, RANGEC, PATHLN, D2DXDS, BOTANG, SPI, SPT, RANGEH 

/ BRANCH / 

NE], NST, NR, SUMKIL, BRNKI_, SJMEVA, BRNEVA, AVBREV, AVARKL 

7 CHECKS ¢ 

RCy, HE1 

/ CZONEN / 

AMLSRn, Hel, H2S5SD, SpcON, N-ONSQ, 

aC21, pCZ>, re2AVi, TCZAV? 
NAMELIST 

/ DATAIN 

ACZ » ANTI » ADIZ , ALP4AE, A.PHAS, ANGMAX, ARIX , ARTY , 
ARAZ =, AR2K , AR2Y , AR2Z , AXRAYT, ARRAY2, ARRYH1, ARRYH2, 
ARRYWY. ARKYW2» BOE + BIS » BCZ » BETAE » BETAS » BFL . 
AF? » CONER1, CONLR2. NELANS, DELF , DELHED, DELRNG. DEFLTAE, 
DELTAS, DFFEVA, DFPKYN, DEPSER, DI1 » DI2 » DIFTI , DTRAD , 
DPFTEV, DPFISF, 

FiL » E12 » E13 » Eel » €22 » €23 » FOE » FOS 5 
FLE » FIS » F2E » FAS » FRWE , FBWS , FLNL , FLN2 , 
FNE  . FNS. , FRES1 , FRES2 , FXE , FXS  , HDINEV, HEDMAX, 
HSL @ bat s t02 » MAX AY, MAXTIM, MECO , NEMAX , NPCO  , 
NEWLAY, 

NPRINT, 

NSMAX , NIULAPO, PDEMIN. PDSYIy, PHIF , PHIS 4 POR » PPAMIN, 
PRE » PRK » QTRAN1, QTRAN2, RGINEV, RI » RNGMAX, SPDEVA, 
ss ’ 

S®DKYD, SPDSFR, THREVA, THRSE2, WRANGE, ZW 

NAMELIST 

Z DaTaou / 

ADIL, ADI?, NIL, DI2, 101, 10?, 

BFi, AF2, CONIR1, CONLR?, D=P<yD, FLNY, FLN2, FNE, FNS, FE, Fxs, 
ARRAYD, 

FULANG, 

SPDKYN, DUMMY1 

y FVALUE , 

COSAVE, DFLRCZ, DYHITH, ARAREA, CTWOP], SQAREA, ANGDEP, ARWIDT, 
FROLCN, FROIDR, FROTRN, FRQASD, FRQNCN, NUMFRO 
NAMELIST 

7 INPUTS / 

acZ» acZ, 

ALPHAE, ALPHAc, ANGMAX, ARRAYL, ARRAY?2, ARRYH1, ARRYH2, ARRYW1, 
AQUA, ARLY, AR1Z, AR2X, ARZY, AR2V]TZ, 

ARRYW2, BOE » B2s » BETAE . BETAS , DELANG. DELF ». DELHED, 
DPF TEV, DPFISF. 

DELRNG, DELTAF, DELTAS, DFEPEVA, DEPSER, DIFTI , DTRAD » FOE ’ 
FOS » FIE » FILS » FE » F2S » FRAWE . FBWS » FRESI , 
FRES2 , HNINFV, HSi , MAX AY, MAXTIM, MECO , NEMAX , NPCO , 
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| e N NPRINT, e 
j e N NEwlLay, e 
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SOSHHOTHOAOHHHSHTHLHMH HK GHR OHHH HEM RH HHO HHHOHH HSH OHH eeHeeHeHeeHreesHHeHeeaeeeecan 
° ARRAYD¢1,1) = ARRAYD(1,1)/ARRAYL r) 
° ARRAYD(1,2) = ARRAYD(1,2) ARRAYS ° 
° Ni 8 MAXOC NUMFROQ(1). NUMFROC2) ) ¢ 2 e 
PPSKHHOSHOASHAHAKHH GL EHR OHHH HEHHO RHA HH HHKG HOT AKO KBEHHHeHAeBeOeHHAPBeeHatason 
I 
] 
! 
POSH HO KOH HSHHOSAH GH HUE OU EHR SH eeHeaHHe HHH HG Her adessaeFGasanceeeaeeteasaeetanivan 
e No §00 ° 
. 1 J = 1i,Ni ° 
POSH HHH HHPSHHOH HHH HHH HH MOHHHHHOHHAeH HEE RHKHHK HHH OH BHHAOHReeercseHesereeeeatatre 
1 
! 
] 
HSC OH PSPS SHTH THONG HTH HHHAOSHTEHOHHHHHHHTHHLHHSHHHHHHAHHRE HHO EHEHHOHAEORRR ARE 
° FNE(J) = FRONOS(J,2) e 
e FNS(J) = FRONOS(U,1) ° 
. FYE(J) = FROSIG(J,2) ° 
. FXS(J) © FROSTG(J,1) ° 


POSH TSCAHHOSEH THO HEE HOU OHHE KEDAH H HHA EOEO HH HOHHPOERHEHEHEHEOOEHHO HEREC L ETS 
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ee ee eee) 
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~~ 
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ee ee oe 


1 
POSP SHC LMEHHHSHHSHHHHNE TOK GEHHHHHHOH TEE HOOHMEDREH OLEH EOHHOOHHOKHORTESECOUESORECHOLS 
2 509 CONTINUE * 
POSHCOO RA HOSSAHTDHSE SLOP HOH OOMOHOHHP FOC ET HHONHATSOHO CHROMO OH AR TESCHOOSE SH EESEDLG 

I 

I 

1 


COOH MOMOOOHSHSHHCHHO OCHO EEH SHOE POHHHOH ROO HH THEME SONS SHEE OHHSO HE OHHHEHEOSSEOE ROLE 
° SET UP CONSTANTS USED IN D- AND &- STATE TABLES 


PE (1) PRE 
PCEC(1)e81, 
PGS(1)81. 
PKpS(1)=PRK 


“a2 


PNE(?)841, 
PE (2) PRE 
PGS(?)ea1. 
PKDS(2)=0, 
PRNOEV(2) = 
PRYSEV(2) «& 


“oOo 
oo 


PNECS) #0, 
PNS(3)#1. 
Pec3oe0, 
PKDg (3) =PRK 
PRNOFV(3) = 
PRNOSE(3) 
PRYSEV(3) 
PRYSSE(3) 


nnn 


- 
- 


PnS¢4)e1. 
PKDS(4)=0, 
PRNOSE(4) = 0. 
PRYSSE(4) = 1 


PKDS(5)=0, 
PRNOSE(5) = 
PRYSSE(5) = 


INITIALIZE SUMMATION CONSTANTS TO ZERO 


cpcaa 


BRNEVA 
BRNKIL 
PERANG 
PSRANG 
SMPEDT 
SmMPSDT 
SMRANG 
SMTCNE 
SMT@NS 
SyMEVA 
SUMPTH 
SUMKIL 


oooococooco°o°o oo 
ooooococococ°oc0c co 


S START LOOPe THROUGH HEADINGS AND RANGES 


HFi ® HDINEV 
NUMMED = ( HEDMAX - HDINEV )/DFLHED + 1,0 
NUMRNG = ( RNGMAX = RGINEV )/DELR2NG * 1.0 
FRLOEV = FIFE - DELF 
FRLOSE = F1s - DELF 
POCO EPMO OEOSO STEED TOOT HASH HHEOOSHOH EMT O TOOTH OOREREO RH REOOEOSOC MRO RES EED 
I 
{ 
if 
SPOOOO HOT OMOOMOTHSE OHS TO SHROHOPOTHO DE TE DTH OTEOOOHREEOEROORSRHOOOCOEO ROH ORLE 
* DO 110 ry 
. 1 Kiz 1,NUMHED e 
DOMES OOM HHESEOOE COTTE EORSROPOHDOOHH HE THO TORE OSTOSERPOOREODTHROOROOEREO REDS 
1 
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° . 
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® e 
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. Pns¢sieq, ° 
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SPOTS OOM RE MOREA HE PHORM RO HH REH OHH ERT DAOT SOE OMOORE LESH OHOHERSOERSOeEOYS 
. ROY # RANGSIR ° 
PRS TORO A ROOMS PE EHH eT ETORE HEHE RAH RET ERI OR OHO EROOHCH OHO EEOOR OS ORSe REET eS 


PROPER ORO RR LAOH RE HO PROM HOOTAEOHEE FERIA TAHEHOREHRO SSO LECO LOEB OOS EEEe OS 


. oo 900 . 
. I dle 1. NUMRNG ° 
SPOOR OOOO REET eE KH Oe HAORO RODEO EH ETH Oe CHOOT PORTO RE REO EO OROOOL OK OEHO 

t 

1 

! 
SPOR OREO EEE EHH SHARE HEHEHE HEH RASH SHSeHOSe ee erereeeeOeesetesre 
. Wy 8 ACY « NEL RNG ° 
. wRITE ¢ @, 1000 ) . 
° ARITEC 6. CrHECAS ) ba 
. veo . 
. Net eo « 
e Nsl #4 ) 
2 Ned ° 
. “START 2 fh e 
. Prpatwm 2 10 e 
es e 
sy INTPUALIZE SPARCH PHASE aN) 2051 TIONS ° 
«> ° 
. Sak sag 
. s tnt e 
PROCS H EE ROEFE REE EH Se FEROROS HERES ESTER STH OH OHOSEHOS PRED LOROREBEOLOCOE Te 


OC vvce cece eeente rene eee ern en eens aane 


1 
POPC CEO HOOHO RHEE Se SOOPER HOH EEF RHO OLEH SSHOHHOHOHH HSS EEOEOSO SESE OEY 
30 CONTINUE 
: ComPure WEARING ANGLES CIN RADTANS) 
Cack 
s RELHR 
VaANGEM = RaNGECN) 
Cau 
s Steer Ra 


cna 


COMPUTE Rav TYPES AVAIL AME 
e 


Cauk 
$ RavNOw 
: compute RECTEVED SIGNAL aN” VOISE 
Cau 
s RECITEV 


COMPUTE STGNal TO NOISE RATID IF RECIEVED POWER FOR BOTH SHIPS 


° Cauk 
s PSrGP 


COMPUTE SIGNAL PLUS, NOISE IVER NOISE RATIO 


. 
. SIGPLS(N,1) = 
. Ee xs 
. SIGPLS(N,2) 2 
. e xe 
SPSS SPOS SSSSSSSHHE SH SS HTSSST SESH SSS HHH SSF E SHES HES SHHCOCHHHSSHSOHSHHHSESESEED 
1 
if 
1 
POSS OHSSSSHSSTS HSE SOE HEOSHSHSHSHS HOFER HH SHOKHAHSHEHHSSFHOHOHOCO SCRE EOSe 
® Tec NPRINT Wit, 5) a 
. «® G69 TO 370 Me 
PPSCSPESESSSES SESE EH SEFSHSSSSS SH HSS EOHH HF SET ELE RHEHSSHH HSS TEHHHSHE HEHEHE EDE 
if 
i 
! 
SPSSHSHSSHHSSESSS HOE HST SSOSHSHSS SEH EHOFHST SST ASSESSES HHOHSH HH SHSHESEHO SCE ES EDIE 
. WRITE( 6, NOTSFS ) ° 
POSS TOSHSSHSSHSSS EEE SHSHOHSSHSSSS HSH SST ESTES HSEHHHOKS GE HEEEEHHH HOHE RHEE E 
! 
1 
1 
SOSH SSSSSESSSSETH HSCS HHE SHEESH SHEE SL SST SES HOHEHSSOS SSH EEEHESES ESE ES REDE 
. Tee NPRINT (LE, 7) . 
. e GO TO 370 * 
POSSESSES SO SSS SEH HSH HFSHSEHSHSSS ESTES OHH SSCS HSOEHHOSH ESSEC HHE CHEE EEERSE 
1 


' 


ee ee ee et te ee ee et ee te et ee ee tS tt Ot Ot ee tt te et ee es ae te ee et tt ee ee ee ee ee er ee ee te ee ee ee ee 


ween eee O 


wee eee 


a en ee pe 
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ee 


LOO RTT 


ro Pr SS = = oe 
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PROC OO HERERO E ECHR EORE OH R OHHH RR HH EHH E OOO OO OHO er ese OHOeeeevesin 


. wRITEC 6, BOTTOM ) . 
SOOO OOOH ROO OE HREM OREO OOH EEF ED HOHE HHO OOH OHO eeeeOeOOOeeeeeeeies 
! 

OC reees ee ce iy 

1 
PEO OOOOH HE HEHE HEME H HOSE O OHHH HEMEL RFOEOPH OOOOH EE EC OOOO OR EOE HES 
. N79 CONTINUE . 
. SYNPSE @ SI1GHLS(N,D) . 
. STNPEV a SIGP) SON, AD . 
Py NTIMEN 2 ON . 
e? . 
et COMPUTE MEAN AND VARIANCE OF POWER VALUES . 
et . 
. Tak . 
. s MUP VAN ° 
er . 
«? COMPUTE PRORABILITY OF DETECTION FOR YHIS TIME ° 
et e 
. Cau ° 
. $ PRONE! e 
SOOPER OER ERE HK HOHE HHH OHHH SH HERERO RS SE EEE EH EeeEe rs 

! 

! 

! 

Or . 


ee CPOE EHH REESE OHO EEH EE FER HSE SHOE HEO CRE ESEEESE HERES ESET HS 
. 40 CONTINGE . 
> . 
«> Compute THE P= AND Be STATES ‘ 
et . 
. Cauk ° 
. s Stay ° 
e: ° 
et SET UP RECUTRED PARTS OF Ne AND F- STATE TABLES ° 
> ° 
. Cauk . 
. s Taat e 
et . 
e8 coMPuTE THe PROBABILITIES 9F Evang. KILL, AND Palw . 
e: e 
. Cauk ° 
. Ss PHORL . 
a> . 
er? MODIFY THE MP AN AND VARIANCES OF THE POWERS . 
e? e 
. Tak ° 
. S$ DEMUVA °. 
. S « NOSTaY, NESTAY ) . 
e? e 
ee COMPUTE PRORAMILITIES MODIFIED 2Y PATH PROBABILITY . 
oe? . 
PORSCHE POSES RHEE HE TEOOH HOSE HEHEHE R CHHHHHESOHEHH SE Ee EEEEOH ESO RETEST E 

{ 

1 

1 
POSER OREO E REESE HEH OOOEH EE OEEEE HEF EHH SHH OOHEOEHEOS SRE DEHOHEEOEOSOSESES 
° tre W 660, 2) ° 
. e GO TO 50 . 
SOOPER OOE SEH EHH EST HEOOEEHEH SHE DE HEHE OHH OP HEHEEEER ERE HETEEEE SEH EEF OEHS 

1 

! 

! 
POOLE RE OOE EEE EE TET H OOOH HSE EEE THEREOF OEEEESEEHE REE EEHOEEHO OH EEE EE DS 
. Cau . 
. $ PROWAL e 
SPOOR OOOH ORO EEE HOHE OOOOSHEH EERE EEH THE FOH HEHEHE H SER E SE REET eRe eeeEere 

1 

Ol ccees ee ee er a) 

1 


POOH PEP OREO TOOT THOME OOOO OER OE DEH O EO. BET OHEHOSE PESOS ES EEOTODEROHOEOE LD 


50 CONTINUE 


. 

. 

ACCUMULATE «= «THE PROWARTLIVISS . 

. 

Cau . 

Ss accsta . 
. 

DETERMINE TF QRANCH SHOULD He TERMINATED . 

. 

POPC O OOOO OOP OOOO EEO HEHE OEE H THEE EERO OHOS SEE HEE EEE OSE ROB EHED 


1 


oe 


i i ee ne ee ee ee ee ee ee ee 
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Ss 


Qn Se 


Ce ee eee eee eee ee 
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1 

! 
PRO Cm ROR Re Oe ee EERO O Ree eereeeerereaeteeie 
. TEC NTIMEN (GE. MaNtiM ) . 
. e 69 70 ?a ° 
server eereeeereeee I) CORRE OO EH OEHHA e er eeeTeTeeeeeteten 

! 

’ 

1 
ererae OEE ERO Re eee HEE ROMERO R OOOO ee meererererssetee ea 
.' C CPM ATREND LT. PRaMIND (98, CO ON (GT, A) (AND, CRANGEIN) (iT Le 
. * BANGEEN@3)) > © AND. (€ CPROSSROND CT. POSMIND (AND. CPROEVAIND . 
. @ eT. MpemMtN>d 92D . 
. end 70 PO . 
oe. Pee eee ee ee ** ORR Ree Ree EHR eee eee eee eneereteeie 

! 
OO OOOO Ee COOMA M OOO Dewar eeeeeteeeneteeue 
- . 
as wOaTe QUANTITIES FOR NENT POINT ON AMANCH . 
as . 
. apatThm a Patan? . 
. Nene . 
SOOO OEE EER HHO EPO O HHS ee EEE ET Eee eeee + 

i 

! 

t 
Patera eee rawr eee OPP ee eee PPP eee eee eee ee eee E EE EE EEE PEPER ESTE ee 
. TFC CNPCOeMECD (FQ, 9) AND, (CNR GT. 2) D . 
. 2 50 TO 470 . 
SOOO ROO ER Re OOOO OOO Ee HHO Ree eee eeeeeeeerSeeeatetea 


OOOO ee RRR OPO E eRe HEH TERE Ae TOME OOOO ERED EOE EEE OE OOOO EHD 


. 
-- uPoare SeIP MOTION aND POSTTION . 
> . 
. Tak . 
. s urpate . 
. Sauk . 
. 5 UPR OS . 
PPO OOOO REE OOOH ROE THR SESE EOSHE REE EEEEHE ROSE EE EEL se 

! 

i 

! 
PROPER OREO OO RRO ERE EEE HHH SHOES H TEE EEHEEEH EEO SEES 
9 TO 80 . 


PR REA ORR E REE Re ERO H Re Hee eee TERK ROT EH OE SEROE SOOO RESOS OOOO TAEDEKS 


POOR ROO REP Hee Re CORE ROE E ORE HER HORT OPER SE RSORROO TEE OE EEO ROSES ES*® 


e- . 
POORER e POO ROE ee ome ERO ODER aE EHH aD RON OP ODOT TORO O DEORE EERE DE OOOEDe 
! 

QO ccccweeevereerencneeteserenecatoune 


peerere SERRE eee mee P OOO EE EERO EEE THE HEE OHS PERO O HSER ESOR EEO O LOSERS 
. vo CONTINUE e 
POORER O HORE eH re HO OOH E SEDER EHD H SEP O RH OOO ERECEEO OEE OOO LOCO RORET EONS 

1 

! 

! 
POOLE OER P OEE ERE RHE R ERO RP ORES STEPH DET ES OOOESSOPO SEE ORES O SOS EEE LES EELS 
7 tee NPMINT Wt. a? . 
. * GO TO Sad . 
POUR OOOO OOOOH ee HEHE ESPERO RSE RE OED TEST ODT OES POSES OR EOE EOO EERO DEORE EEE 

! 

1 
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POPP eee eee seerereeneree POPS H RTE RHO e SEHSEO OHHH SED ESEE REO RO LASERS 


. SSNRTL ® Suma, « KIL . 
. SRNEVA © SUMEVA ~ BRNEVA . 
. AVORRL © BENKT. /AMANNN . 
. AVOREV © BRNEVA/AMANNN e 
. wRTTEt 6. BRANCH D e 
. FRVATO ® SUMATL * 
. ARNEVA 2 SUMPVA . 
SPORE FORSTER EER EEO ESE SEE EE HERE SOTO ATER ESES HRS EEEEHEEE SSE EE He 

1 

t 

! 
PESOS SESH RETESET SHEESH TF E RPS STE SHHESEHE SESS EHEEEEH SESE EE Ee Ee 
. tee NPRINT JLT. @) e 
. * GO TO Sad . 
SPOS ESTE SE TEESE EHS HERES EOE FEE SET ESOS ESSEE HE EEEEEESE SESE EH EEES 

I 

t 

1 
eterere SPREE H ESSE Ee HHH ee HEHE HSESER ESE SEH EEE SEES ee 
. WRITE ¢ 6, 8000 ) . 
PEST PSOE SEES EEE EHTS TEESE SESE EHS SETS HESSSSEESSEESEEEESE ROCESS OES S 
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ik dt <i lh hl in Sls at tlh mad eh Ones i eth, i etd, ee te: th, em i, 
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| nee Oe — —— —— Be eee Bin sen g Owe 
’ . 4 . ‘ | . ‘ ‘ ‘ e ; ‘ , 


[ 
[ 
i 
i 
i 
i 


a EARN RTA CR ee OY ULI SN hl A CARNEIRO Ns Gc am 


1 
COE ROMEO SOREL EHH CHAOS O HERE HEEFT Es BEFORE SOEEROS COE EEE ESET EEOEOEeeie 
. Dn 600 ° 
. H Tos NSTARI,N . 
CO OOOO OOOO ORO Hae OH HOME OEROR EEE OTeHSeeeeeee ¥ 

! 

! 

t 
Pere er Rae eeeertors SCORER OH Hee ee SHEER EHO EE OHO ROTH EHeeeeery 
. wSIVTE ¢ #, 700M D e 
. | . . 
. w PHS td, » 
e = PYS ty), . 
. # RANGE (1), . 
. = PKE th). ° 
. a YE cf), . 
. w eatin (I). e 
. mw PEVADECID. ° 
. = PPatH C1) . 
SOOO OR TOO Re TROT R OEHHA HEH OH HR SHR SOOHEH HES OEKESET EES Ebeet es 


! 
! 
1 
OOOO OOOO OPO EE OE EER OREO O DERE HOE OHH ERT OOHTOOOOEET HET HO OHH ECOOEEEH OS 


. 400 ¢ 


POO ORO OEE HH Le MOOR SODSS OED DOK HEME RPSORESOHDETESO EOE OROERODEK® 


! 
! 
! 
CORO RECOM HORE RE HE He HAO HOEE RTH SFET SH SATOH OSESHOSH ORE ER OSOT SEH ESE EeH es 
. TEC NPAINY WUT, 7) DS PAE Sane 
. * 69 TO 340 . 
Pee eee POOH eE eee SRST POSH COTA FSH SEHOSSHHHERHERSSEHESE LEE EEYS 
! 
1 
! 
SOOT OO EROS PETES EHC OH EOE EHETEEE EF USEFEEOAHOSHERS OSHS EOHHOSHETE SO HEOOE SD 
. RITE € &, 6000 » . 
SPSS OSES EHO HOSE EOE COOH HHEH SHEE TTL TOK SH FASE HHOHOHHESSTHLEHHF ESSE ETERS 
1 
! 
! 
POOP ROOT HOOT OHO MOAT ESEH SHOE FH SHE LETOHREHOOHESHH OR SH EH EHHH RE LESES HS 
.* Do 700 ° 
. t foe NSTART.N ° 
SPOTS ESS POSTEO ES ETE EHTS HSA EESHHESHT HSH HSTSHRESOHEHEH ESSE RESCH S OSS LES EELS 
t 
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SOOO P OPO RPO S OSPR De SHOPS EDO HOOEHSE OH HSODT OF OL OCRERED SHEL EOEOH OSE LEOEDLG 


WRITE (€ 6, 7000 9 


e 
! . e 
PROSER( IS, . 
GMUSER(T), . 
VARSER( I), . 
NEMUSF(T), . 
DEVASE(}), ° 
PROEVALID. . 
GMYEVACT), ° 
VAREVAC]), 5 
DEMVEVIT). e 
w DEWAEV(T) e 

. 


eeeeeecaren 


DOO POPES E MESES SEE HST EOOOEO ESHER OPTED OTRTSE OOOOH EOE HO ROSE DESTO SO LEEEES 


COPS OSE OOS PO SESE H HOE TOAOEOENSSH SEE TS ODE OE TOROS OSOOER GOES OTEP SHELA RLAEDe 
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H 

l 
POOP Ore O OOOO SOROS ODE SOK ORES E REDE SSEH DODD COTEEOOEE DEPORT DAES E CODON EO EESS 
. fF ¢ NPRINT 117. 6? @reye 
. © G9 TO 360 . 
ROC e OSE RE PER OSD ee EET DO OPE ROSE OEE DDD T OR TONSECOREOE DOSER OE DSEOOROOESD 
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tees eS eR oe 


Oe eee ER AR OOOO ROE OR Oe ree OEereeesetaeie 


ROE HEE MENE OOOO ROOD EEE OH OE RESO EE He 


ete eee ee tee tonne RR Ree PERE e COMMER OPO eee eee eee er eereseeee. 
10 800 
e ' f+ NSTAQTON 


CORREO eee ee He Cees eet eaeee 


COO HO MER OREMR Hee Heme OH eee eeeeee 
1 
' 

1 
PPereer ret Pree eeerl Ter rerr ree! 


sSITE ¢ &, 700n 


s . 
w PRPTSeCT), 
=» PRANGS(T?). 
@ PSDETACI). 
= TTONSACI), 
=» SIGPLS( 1.9). 
* paprevild. 
mm RANGE I), 
w PEDETNCT), 
w@ TIONFNGID. 
= SIGPLSTI. 2) 


eee eee ee ee PERO meee eee ETE Mer OPED eee FO resaeeeretesdeesee® 
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eee woew eee 


eorer ee ee eee ee 


SOO RRO O EE OMe e em eee eee TER Oe MEO O RETRO EEE HOES Oe etesie 
. a CONTINUE . 
PPO ROOM OER CRM O Here eae RTO T EHP OE OE RAEOO ORES OE OO OH ORO EEE EEie 
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CROP a ee ee Rem een e eer oer seesonesaeee 
Sao CONTINUE 
SUMP TC g Sumh ta © PRAT HIND 


PEM OPO e Ree Oe Dees ereeeseseearers 


DETERMING SENT BRANCH TO FOL Od TLE. SET NEL AND NS! 


SOR RE RRO ewer ee meet eeeeserese 


SOO CRORE REE Ee EMRE RO Re REET ERE SETAE HSER HAR EEEEESES SORE OHH S 
. tee NR FO. SD Cee 
. * 63 70 a0 e 
COO RRO MEMEO EE EEE O ESE SHOSEESE HSE SETOESES ES EEE EEE 
+ 
| 
' 
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OOOO OOOOH OOOO OOO EEE HOS HOSTESS REHOHERESEESEEEEEEEETEEES 
. te¢ WR 60, 2) * 
. © cauL two . 
. tec NR .EO0. 1) . 
. © cau PTREE . 
POO OTERO OOS SERS HHO COOH S SHES SESH ETE HM SSH ESSE SOEHH ESSE SESE ESEE HOE ES ORES 
1 
1 
! 
SPORES OOH OOOO S ESSE HE HEHEHE THESE SEES TEES OSE ESEEH THESE RHP OSES 
* GO TO e0 Beseaes 


SPORE OOO FEO HE EER PHOS RE OO TE HERE E HPA SO OHS O ETO OE SDE H OEE ED HRS EET OLES 


POO OOO REO FETE Ee SHH SEOE SESE S ESCH FEET OST OEO ES EEEOO SESE ORES S OS OSHEESIE 


et . 
POOR OTe RRR OR COO HREM OO OOOO EEO E ORES HSH OTE SEH OSOS ER OO OOOO EOOOOE SESE SEEDED OD 
1 
oC eeses . eens wtaces 
1 
COT RPO Se Pee POS eer er HD Pe OECeD EHS ED ET ESRD eF OS 
. 80 CONTINUE . 
7 Cell = YHREE e 
oreceece SPOR POH EE OO TESCO SESE TSE EEF E RE HOT OHO ESEETESE ORES SOS ERE HORE REDS 
1 
Ole ccc essere keeresrenceceeteecenetecesetanes 
! 
SPOT OT OO OPORTO R EEO ET OE ROR E SEES EOEEE TERT RH ESEO ESET EO OEEEEEOEO SOE E RROD ENS 
. 90 CONTINUE . 
CEOS CRORES RETO E HOOT SOE OEOTE SESE ESTE OTE OTESED EOE OES 
! 
! 
1 
POveTeeETET Tiree ree ris 
. tre WR EQ, 4) Pounce 
. * 69 TO 900 . 
SHOP ORR R SFOS ERTS EEE POSTER ESO E HESS ES ESSE SST OHS E EER FOSSEOEESOSOS EOE EHEESO® 
! 


ee ee ee ee ee ee ee ee ee nw ee ee ee a ne ee te et at ee te et Oe et tt tt et tt te ee ee Oe st et st tt ee tt et tt mt tt ae a OE a tt tt en a 


1 
i 
! 
1 
! 
! 
! 
1 
! 
1 
! 
' 
t 
! 
! 
! 
! 
1 
! 
’ 
1 
1 
t 
i 
! 
I 
! 
! 
{ 
1 
1 
! 
' 
! 
' 
1 
1 
1 
! 


me ee a es ee ee ee ee ee oe DD 


-—--—0 


vveese sd 


ne 8 mand Oia masa GE 


a 
; 
rt I 1 1 1 4 
Rat 1 1 1 I ; 
Kk} BPO COST MCOOOFATIG EEK DDT THOOO RROD RESET TOOT FOTOS POSE SPOOR EE DEDEOOOOSEORO ROSS 1 { I | a 
4 o> . 1 1 i : 
ra 2 QFSET CLNSF AND EVADE PHAS=S ° 1 I I { 
Pas o> . 1 1 1 
a. . CALL . if ! I 
tt ° S RESET ° i 1 1 
rt * Nos MAXOC WSJ, NE] D = 1 . 1 i I 
Py ° NSTART = N . fq 1 1 
Bl . FuN GT, NST ) ° 1 1 i t 
ea . @ CLPH #8 1,97 . if ' 1 
Eq ° Ip¢ N .GT, NeT ) . if I 1 
fF ° © EVPH # 1,9 . 1 1 1 
55! . PPATHM = PPATH(N-1) . if 1 1 
aaa | . IFC N .EQ. 1 ) PPATHM = 1.0 ° 1 1 1 
hy . NTIMEN = N . ! I I 
E25 PORCH TOO TOMAOHUFHOSO TOC SHOHETSOHEOEFOO SENT ODOT HCOOH HESHOTERDECOEODE ROE EESES I I I 
bY ! | 1 


PPECTHOSHOSSHSOSHOOSSCECHFSFTESSHOSSSSSOHESFOTTOSFSEC HOSA SECS HEHEHE CHSHSEHSEHESES 
. G9 TO 40 Ongar 


FOPMISEMSPOAOHTOOES 2OGF ASP HSHEC OSSD UD FODU GEC OOOOH ESEEH SEED HORSES SED ESOS EES 


FOOT OTFH DIOS IHTSELIC TOT SOSHOHSTODOS DO DOSS OHS OO HSER SPODESECRDOEHOSEOROE SEEN 
ot 7 
POSTERS PO THO SOTHO D OP GOUFPEOTRSOOREO TIC OD TODOS OOHEOOOOSOESSOO POR OE SERB EEES 


Qe ce cccevecrveeresescsvsertreresetevecetivns 


POSS SS SOFHSHSSHTS SC AFATCTHGHESHETASOSHHEDTFHGCESSESEESESF REO HOOHHSESESHESESS 
® 300 CONTINUE e 
POSPSPSOOHHSFHSAHSO USAC HOOHOPSHTHESEGHOTTIFS IOC SHH EHTHETCESSEEEETEOCH ROSES SEEDS 

1 

I 

I 
SFSCSFSSAASHOSH OSH OST H STE SHSOHROHRSETOS TES OEORSSESHEEOSESESH HR OETESESESCEEEEGESE 
e HE1 ® HEL » NELHED . 
FOSFIAESHSSHOOSSASOCFH EST OOHHEHETHOSOH A HOT HEOHSESHOHSEHESOEEHEEHHESCOREREBOEOS 


ee ee) 


f | 
POSCSFOPHSHOOMAOHT AG ISOVOHSSSHSSHTOSTHIESCOHTSSSHHHSSOSCHHECEEHEOCHH SORES ESOS 
° TF¢ NPRINT ,LE. 8 ?) Wire vere Ln eaisieceO 
. * GO TO 350 * 1 
FISESOSCHSSHSSHSSHHGATTFHSCHHSSHH HH SOTHO REHEEFOHSHHSSHSHHSHHSSHOCHSESHOHSE SED ESES I 
i i 
1 1 
I I 
SOSFCSHCFOSFSSSHFOSOO SCOT FISHOSHHOHOHAETETESCHHRTHSCHSESHOHESH SO EEEEOTESSE HE SOOS I 
ry WRITE( 6, TABLES ) . I 
SPSOCHSTSSSCHSHHHSHSOK TAO FASO SESESTDOF EOE FOSCHOT SESE SESE SE HR OESEOHOKSEEHREE Oe I 
I I 
i?) 


Olver rsererecacresee rere rreeeseesereceteses 


POSH OCTHRIOSEETOH COOH OFC OOPEDORGAFETUDOHETIESOOSOSEOSHOSE RT OEHOHOR OHS OT ESCO 


# 350 CONTINUE * 
PO OCOTIPODOSOSRSOH TE ODED DR EEOSOU SESH O DE OT OUT EDED HOE POSSE DS HEEDRT OS OOED EDD 
1 
1 
i 


SPOTEOTOFHOODOOFEDOL OOH OHSS OSHHSOENHHCOUTHOUHOSHEHOSHOCHEOEHOEREREO HEL ORDE 


Vsltatneveeaneneeeve® £90 CONTINUE e 


eee ce me ee ee kn ee oe ee ne ee es Ot Ok ee ee ee ee ee eee ee ee ee ee ee a et et te ew es 
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| SOSVSFOCHHHSSFHHHESOOH OO OHHH ERHEDOO RASS E OSH HHSEHEEHESESEGEEEEEHOHESERCEBOS 
1 
7 I i 
f 1 3 
i FOSCSFPHEFHSFHHEHTOOSHOGHPHSHEHEHHE HEHE TOTHHSESSSHSHEHEDESHOHHEEEEBSEBOS 
. 2 ot e 
; oe NORMALIZE AND PRINT OUTPYT . 
| ted . 
: . CONNOR = MAXTIM@#NEMAX®NSMAX @VUMHED eNUMRNG . 
. AVEEVA = SUMEVA/CONNOR « 
. AVEKIL ® SUMKIL/CONNOR . 
* AVEPTH = SUMPTH/CONNOR@AMAXNY . 
. TRENOR = NUMRNG®NUMHED “ 
. SMRANG = SMRANG/TRENOR . 
* SMPEDT = SMPEDT/TRENOR e 
. SMPSDT = SMPSDT/TRENOR ° 
° SMTCNE = SMTCNF/TRENOR “ 
‘ SMTCNS © SMTCNS/TRENOR . 
. TREKIL = SUMKIL/TRENOR ‘ 
i e TREEVa = SUMEVa/TRENOR e 
® TREPTH = SUMPTM/TRENOR e 
. SUMTOT = TREEV, ¢ TREKIL # TRESTH * 
. PSRANG ® PSRANG/TRENOR ° 
. PERANG = PFRANG/TRENOR . 
i . WRITE ( 612000 ) ry 
; 
i 25 


e w TReKIL, e J 
® W TREFVA, * 1 
e w SMPEDT, ° 1 
® Ww SMPSDY ry ] 
. WRITE ¢ 6,15000 ) z 1 
® w PERANG. ry 1 
| ° WwW PSRANG, ° if 
: Py w® SMTCNE, ° | 
° Ww SMTCNS, . 5 
s ° w TRENOR, ° I 
° Ww SUMTOT ry J 
° WRITE ¢ 6, 1000 ) ° 1 
PHSLGOECAHHSSAHSSHGHHOKOUMPOHAKHEHHRH OTT HOKE HTEH OTE DHCHHHH ZOHO HREOSFOESHAOEHin I 
] 1 
I i 
! I 
PHOSPHO SHH OCHHHOMOVAATHTO GE EO HHO HEH HO HDO DHF HOP HEF HO HEM OFOHHOAdHOHHOCHROHOHEHIG { 
o 1F¢ NPRINT LE, 0 ) Wiataicieaahialeteatacnel 
e * GO TO 40 « { { 
PROSKMSKSHMOCHOHSHHGOHAHOKT SOT HORAEHKEHHR HEH OTTO KC MEF ate Geet Oose Hr avseCenoenenadeoua I 1 
] { ! 
I J l 
1 1 i 
PESO IFS HSH SSSHCHHHHS OSPF HFSS R HH HHeF OH FF FHKE HL OOK HER HOFPHKdHe ROB eHHBOOHeHEtanign J if 
ae r I I 
et PRINT OUT NETAILED LIST OF IVeUTS * I ! 
at * 1 i 
° WRITE ¢ 6.21000 ) ry ] I 
° w ac? i‘ e I I 
cy Wo ALPHAE, * I ! 
e WwW ALPHAS, * { \ 
° waRix, r) I 1 
r waRiY , e I 1 
2 waRi2Z , . I J 
° Ww AR2x, a I if 
. w AR2Y ° * I I 
° Ww AR2Z ® I ! 
® WRITE € 6.22000 ) ® I ! 
° Ww B2E . ° I I 
rs wW 82S ‘ ° I 1 
° w ACZ P « I I 
° W DELANG,. e I l 
° wDELF , o I l 
e w DELMED, ° I I 
ry W DELRNG, ° I l 
* w DIFTI r) I I 
. WRITE ¢ 6,23000 ) : I 1 { 
* Ww DEFTEV, « I 1 : 
® W DPFTSE, * I I 
e w OTRaAD , e I I “4 
* WoFAL ’ © I I iy 
* WEL2 * 1 } iJ 
° w E13 ’ * I I 
. w E24 ’ * | I 
° w F22 Z ‘ 1 1 . 
° we2s * 1 i ; 
° WRITE ¢ 6,24000 ) e I 1 = 
Cy Ww FOE ’ ° ] I 
* w FOS ’ « I I a 
. WFLE , . l I i{ 
° w Fis j . I I i 
* Ww F2E ? e I I 
) wF2s ° I I 
a WFBWE , ry I I 
° Ww FBWS * | 1 { 
e WRITE ¢ 6,25000 » * I I = 
° w FRES1 , * I 1 
® Ww FRES2 , ® I I 
> W HDINEV, ‘ 1 
) W HEDMAX, ° 1 J ] 
* W HSL ’ . I 1 
® W TOL , e I I 
* Ww 102 ’ ° 1 I 


a 


MAXLAY, 
MAXTIM 
WRITE ¢ 6,26000 ) 
MECO . 
NEMAX , 
NEWLAY, 
NPCO , 
NPRINT, 
NSMAX , 
NULAPO, 
PDEMIN, 
POSMIN 
WRITE ( 6.27000 ) 
POR. 
POaMIN, 
PRE P| 
PRK ’ 
QTRANI, 


zr 


ZEHREEZTEEEE 


ZEEEETELELEE 


6,28000 ) 


SPDSER, 
ss ’ 
THREVA, 
THRSER, 
WRANGE 
21900 FORMAT( 
4 F15.6, Ac2 FIRST CONVERGENCE ZONE CONSTANT 


seseeosocceeoeseesetesteeeoeseseeteeseseeeseseeees 
HBEEEEE 


7 F,5.6> ALPHAE = SMODTHING PARAMETER FOR EVADER 
7 F15.6, ALPHAS SMOOTHING PARAMETER FOR SEARCHER 

7 F156, ARLX X=-P2IME ARRAY DIMENSION FOR SEARCHER 
7 F15.6> ARLY Y-PRIME ARRAY DIMENSION FOR SEARCHER 
/ F15.65 ARLZ Z-PRIME ARRAY DIMENSION FOR SEARCHER 
7 F15.6, AR2X X=PRIME ARRAY DIMENSION FOR EVADER 

7 F15.6, AR2Y YePQIME ARRAY DIMENSION FOR EVADER 


/ F15.6, AR2Z Z-PRIME ARRAY DIMENSION FOR EVADER 


APRA RAN SIM DM ONC 
AANA AANMHAMNNMBHRNMMNNNNAT 


) 

22000 FORMAT( 
F / 15.6, 99H = Be INT=GRATLON BANDWIDTH OF POST-pETECTION 0 
FF EyADER ° 
F / F15,6, 99H = R2S INTEGRATION BANDWIDTH OF POST-DETECTION Oe 
FF SEARCHER ° 

/ ¥15,6, 99H = BCZ SECIND CONVERGENCE ZONE CONSTANT 


eseseseseesetesocecoese se seseeseeeseseesesesseeeseeseeseeesesesescscesseeee eee s 


PE Fore MNS ST 


7 F15.6, 99H DELANG ANG_E STE® SIZE FOR RAY PRE-TRACE TABLE 
7 F15.6» 99H DELF FREQUENCY INCREMENT 

7 F15,6+ 99H DELHED CHANGE IN HEADING OF EVADER 

/ F15.6+ 99H DELRNG CHANGE IN RANGE OF CLOSEST APPROACH 

/ F15.6» 99H OIFTI TIM= 3ETWEEN POINTS ON A BRANCH 


Ce Nel ele ee eo eee eee 
a ee a a ee se as a a a ee ee ee ee ee ee eee ee 
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seeeee ses tees 
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#23909 FORMAT? 
¢ F15,6, 99H = 


sseseesepeeesesesees te teeeseeconaeeeseeoeeeeeseeseeseeeweeese ee ee eC RehlUlcrwrlC CU Hr hUh OFT oesereveeeseseeeweseweeeeeoeesesseeeeee 


7 F15.6. 99H = 


¢ 
F 
- 
iy 
F /¢ F15.6+. 99H = 
r 

Fo y F15.6. O9n = 
FOTATION) 

Fo ¢ F15+6+ 99H = 
FNODES ROTATION) 
F ¢ F15.6. 99H = 
FAXIS ROTATION) 
Fo 7 Fis.6+ 99h = 
FOTATION) 

Fo 4 F15.6. 99H = 
FNODES ROTATION) 
F / F15.6+ 99H = 
FAXIS ROTATION) 
FY 


24000 FORMAT? 


7 F15.6, 99H 
EVADER 
7 F15,.6, 99H = 
SEARCHER 
7 615.6. 99H = 


F15.6,. 99H = 
F15.6, 99H = 


7 F15.6, 99H = 
NT 
4 F15.6, 99 = 


7 F15.6, 99H = 
Q 
) 


AYMAN HAA MAMAN VNAN ANNA 


25900 FoRmar( 


F / F15.6. 99H = 
/ F15.6, 99H = 
7 F15.6. 99H = 
/ F15.6, 99H = 
7 F15.6. 99H = 
4 115, 99H = 


/ 115, 99H = 


AANANARVMAN ANAT 


Fos 315, 99H = 
FT PROFILE 

Foy Y15, 99H = 
Fr 

F) 


26000 FORMATO 


F ¢ 115, QOH = 
Foy 115, O9H = 
Fy 115, Q9H = 
7 15> 99H = 
Foy 1455 99H = 
4 / VWASe 99H = 


Foy 115, GOR ® 
F 


DPFTEV = 
DPFTSE # 
OTRAD # 
tii . 
t12 : 
F113 = 
b21 2 
b22 3 
F23 = 
FOE z 
10S 2 
HLF = 
Fis 2 
F2e = 
2s 2 
FBWE = 
FBWS 2 
FRES1 
FRES2 «= 
HDINEV = 
HEDMAX 3 
HS1 : 
101 . 
102 * 
MAXLAY 2 
MAKTIM = 
Meco 2 
NEMAX = 
NEWLAY 2 
NPCO 3 
NPRINT # 
NSMAX & 
NULAPO 8 


EVANDER DEOTH 

SEARCHER DEOTH 

ANG _F INCREMENT FOR RADIATED SIGNAI 

FIRST EULER ANGLE FOR SEARCHER (2 AXIS R 


SFCINO =ULER ANGLE FOR SEARCHER (LINE OF 


THT?D = =ULER ANGLE FOR SFARCHER (7-PRIME 


FIRST EULER ANGLE FOR FVADER (7 AXIS Re 


sECINO EULER ANGLE FOR EVADER (LINE OF © 
° 


THI2D EULER ANGLE FOR EVADER (7-PRIME e 
e 
* 
* 


PRE-D=TECTION FILTER CENTER FREQUENCY FOR 


PRE-DSTECTION FILTER CENTER FREQUENCY FOR® 


LOW=R ¢REQUENCY LIMIT Of EVADER EQUI]PMENTo 
. 
LOW=R FREQUENCY LIMIT OF SEARCHER FOQUIPME® 


* 
UPP=R FREQUENCY LIMIT OF EVADER FQUIPMENTas 


UPP=R FREQUENCY LIMIT OF SEARCHER EQUIPME® 
r) 


PRE-DETECTION FILTER BANDWIDTH OF EVADER e 


° 
PRE-DETECTION FILTER BANDWIDTH OF SEARCHE® 


® 
° 

TRANSDUCER RESONANT FREQUENCY ON SEARCHER 

TRANSDUCER RESONANT FREQUENCY ON FVADER : 

INITIAL HEADING OF EVADER 

MAXIMUM HEADING OF EVADER 


HEADING OF SEARCHER 


*eseeeectes se 


NUM3ER OF DIRECTIVITY ANGLES FOR SEARCHERe 
e 
NUMQER OF DIRECTIVITY ANGLES FOR EVADER e@ 


MAXIMUM NUMBER OF LAYERS TO BE USED TO Fle 


MAX{MUM NUMBER OF POINTS ON A BRANCH 


CONTROL PARAMETER FOR EVASION COURSE OPTIe 


MAXIMJM POINT ALONG BRANCH TO START EVASI@ 


CONTROL CONSTANT FOR INITIALIZATION ° 


CONTROL PARAMETER FOR PURSUIT COURSE OPTle 
& 
CONTROL PARAMETER FOR AMOUNT OF PRINTOUT e@ 


) 
MAXIMUM POINT ALONG BRANCH TO START CLOSIe 


NUM3ER OF LAYERS PLUS ONE ° 


ee eee ee eee 


ieee es es ss i ss ee 


ee 


) SS 


yeas: 


re -_ —_— = om 


veregre > 


. 


Crrneinnir.) Be ceng [oe | 
. ‘ 


mae SS S&S & 6EeS.hlCUES 


® Fo ¢ F15.6+ 99H = PDEMIN = MINIMUM DETECTION PROBABILITY ALLOWED AF! eo 
° FER SHIPS START SFPARATING aS S=EN 3Y EVADER ° 
* Fo ¢ F15.6, 99H = POSMIN = MINIMJM DETECTION PROBABILITY ALLOWED AF To 
e FER SHIPS START SEPARATING AS SEEN 3Y SEARCHER . 
° ry * 
027900 FORMAT ( r 
2 F ¢ £15.6, 99H = POR z PORISITY OF BOTTOM e 
° F ° 
° Fo ¢ F15.6, 99H = PPAMIN # MINIMJM PATH PROBABILITY TO BE CONSIDEREDe 
° F * 
° F / F15.6, 99H = PRE z= A-P?ITORI PROBABILITY OF FVASION ° 
e F * 
° F / F15.6+ 99H = PRK = A-PRTORI PROBABILITY OF A KILL e 
e F ° 
o F ¢ F15.6, 99H = QTRANL = TRANSDUCER FIGURE OF MERIT ON SEARCHER ° 
° F e 
® F ¢ F15.6, 99H = QTRAN2 © TRANSDUCER FIGURE OF MERIT ON EVADER ° 
ry F ° 
° F ¢ F15.6, 99H = RGINEV #2 INITIAL RANGE OF CLOSE ry 
° F ° 
° Fo ¢ 645.6, 99H = RI 2 INITIAL RANGE BETEEN SHIPS AT START OF BRe 
e FaNCH e 
e F / F15-6+ 99H = RNGMAX = MAXIMJM CLOSEST APPROACH DISTANCE ° 
® F * 
® w) e 
#28009 FORMAT,( ° 
ry F /¢ F15.6, 99H = SPDEVA = SPEED OF =VADER * 
° F e 
° F / F15.6,. 99H = SPNSER 3s SPE=D OF SEARCHER . 
° F . 
. F /¢ F15.6. 99H = SS s SFA STATE ry 
° F ° 
® F ¢ F45.6. 99H = THREVA = DFT=CTION THRESHOLD FOR THE EVADER * 
° F * 
® F 7 F15.6+ 99H = THRSER = NET=CrION THRESHOLD FOR THE SEARCHER ° 
° F ° 
2 F / F15,6, 99H = WRANGF = WEA20N RANGE . 
® F . 
. wo) * 
POPC ARF SAP HFFOHHHGoPF gor sdSGOHGeeFeHGoFFSetv ast aeceeaeeeRGageccssegdsenesassasian 


I 

1 

I 
SOOT IOTO EAPO RO TOO DEC ODT ROOR EMER ERSOOT HAO OTU SHRED HOR HOHTHORELODOCONPOHOBOLe 
° IF ¢ NPRINT ,LE. 9 ) s e 
° e GO To 340 e 
POOP DOSS OMEDE TOO SOU E OE GOSS RO MRO SHE HU OGOTOOTOR RE SEHO OD OHROEHOTECHDO RED ERES 

I 

I 

I 


SPSPFHSHOHSPSHHSHPHHGHHOHOFHOSHSHSHHHSHEHOEHHCHEKHOHHHREHHHF HH HHHHH HOHE HeO HOS 


° WRITE( 6. POWERS ) * 

® WRITE( 6, FVALUE ) « 

2 WRITE 6» DATAOU ) ad 

® CALL PODUMP e 

SHO F HONS POHSGHOSHHH eK Hc Kees OPeFe He Mec e Hv ee AseHe se aK Hea oaeHHRSRSeGeetasne 
if 


OE RL RON CR OCR 


SPHSKHFHESESSFHHHGH HK HOE HFOHHSHHFOGHOHH HEH o HFEF TERS HOHHHHHHeeHHHFCeReeHtaeneg 


# 340 CONTINUE * 

e NEWLAY = 1 r 

QPSMFHR HH RHHKHK HHO HH EE eA HOKdeHEHoOod Hot Hc Hot eee osaeKessseotrseeceveaGaeteagrnea 
1 


I 

1 
TeaRERERR RESELL EL ESOS ERS EEE RES ESE SSE SEERA RES ER ERE RAS EE ERS EEE EEE ESTE REE Ee 
e GO TO 10 ry 


Tae REPRE RE PER RE RRS RSA REAR RE ER RRR RR ERE RRR ERR ERE EERE EE SS EEE EES ESSA EEE EERE SAS 


ee Le) 


atasas 


- 


eeteene 


te ee es es a 


29 
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y 
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PRON GE LSE KOK VSO HHH See SHHe KOH RHE H HHO OCR Re KMPeeReAe he eovaeaHHnoOeHeeesaeneaatsesin 
a> * 
2 1909 FORMAT( * 
» F 1Hi ) ry 
» 2707 FORMAT( ° 
> R SBHIL AYER -pEePTH mnRlTA-Z2 -VELOCITy -vo -GO « 
a F 59H -G1 -S2 “SLOPE -=MIDSPFED de 
® 3909 FORMATE e 
® F 6220.10 ) ® 
® 4000 FORMAT( ° 
ry F SAHTRANTAN ANGLE RANGES FOR nIVFERENT gOUNCE MODES 7 » 
® F 24K, 9NH NIRECT ONE =sURF ACE ONE-BOTTOM SURFACE-BOTTOM » 
a Fo B30TTOM-SURF ACE TWOsSURFACE ) ° 
@ 6900 FORMAT( ) 
e F 7EL7.7 ) e 
* 6900 FORMATC ° 
® F //59H N PR-SEARCHER MU-S SIGMA-S DFL-MU DEL-SIGMA @ 
» F 59H PR-FVADER MUSE SIGMA-F DEL-MU DEL-SIGMA)«@ 
®# 7900 FORMAT ( ry 
a F 13, 1P5F11.3, 5X, 5F11.3 ) ® 
» 81709 FORMATS ® 
Fy F /¢ 58H N SE ARCHER-X -Y RANGE EVADER-X -Y 
ry F 59H PRORAHITI .-KILL “EVADE -PATH de 
2 9709 FORMAT ( rs 
® F / 5BHN S-PATH -RANGE -OeleCTION -TEMe “S/Neot @ 
® e 59H E-PATH “RANGE -DETECTION -TYME -S/Ne1)da@ 
e10000 FORMAT ( i 
* F SyH COLLISION PURSUIT AND NIRMA_ =SCAPE NOT COMPATIBLE ) ° 
#19909 FORMAT ¢ FY 
° F 60H COLLITSTON COURSE PURSUIT ATL NOT WORK WITH SLOWER SEARCHER do 
#12000 FORMATE * 
* F 1H e 
* Fo 7 F15.6, 944 = AVERAGE PRIBABILITY OF SEARCHER NEUTRALI ZING FVAe 
» FNEAR e 
® Fo / FIS.,4, 94H = AVERAGE PRIBABILITY OF EVADER ESCAPING FROM SEAR 
° FCHER e 
° Fo / FL5.6+5 94H = AVERAGE PRIBABILITY OF FIRST DETECTION FOR EVADFe 
2 FR * 
ry F / F15.46, 94H = AVERAGE PRIBABILITY OF FIRST DETECTION FOR SEARCe 
* FHER ° 
2 FY) * 
®13N00 FOQMAY ® 
cy F / F15.6, 94H = AVERAGE RANGE OF FIRST DETECTION FOR EVADER (KYDo 
* fF) ry 
* F 7 F15+6+ 94H = AVERAGE RANGE OF FIRST DETECTION FOR SEARCHER ike 
* erY0) ° 
® Fo / F15.6» 94H = AYFRAGE LENGTH OF TIME DURING WHICH EVADER IS DEe 
ry FTECTING SEARCHER PER TIME INTERVAL (SEC) ° 
® F / F15.6» 4H = AVERAGE LENGTH OF TIMF DURING WHICH SEARCHER IS # 
® For TECTING FVAnER PER TIME INTERVAL (SEC) . 
® F / F15.6, 94H = NyMRER OF TSOMBINATIONS OF INITIAL HEADINGS AND Co 
° FLOSEST APPROACH DISTANCES ® 
a F / F15.6, 94H = SUM OF KIL., EVADE AND RESIDUE PATH PROBABILITIE® 
® FS * 
® F {41 ~) * 
aS o 
HSPSG HATS HOHMEOFSHOH HHH EH AETHER HORHA HH ORO TART RE ROHR eK HHFH SHEE HTeGOH ee Haaedie 


I 
J 
I 


® ENO 


SEP AHHH HOHARHHHRHE KOK HEHE EER R HOHE ORE T eH HEAR HORe HRA ReHeGeHPeeeeaetaanea 


SHOH SOSH HHRMA H ATH ECO RN ERHRO TOKE ORR HEHHT HHH HAM HARHKAHHEGETACHeGGaeaaiua 


ee ee ely eee eeene 


‘ 
—_ aa 


ay 


= = —-— —< em am 


= een neers Penn Oarennind 
‘ * ’ Brernnd . ; . : 


ee 


(FNTRANCE) 
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HPOMSOHRSOS SSH SAHHHRE THE ASHER EEHSEEEEETEE TEN GAHSEPCSHAESHHSSSELELESEVLS RP EEP OPS 


elAaccy acCumutarlvE srarilsrics ° 


a> PHP HO eHAHEH LH RE HT EReGHeHEeEKBeUD eR eR cee KreseeeeRsGHeeeveeeeeseeeanetesse 
eo? e r 
e®> 8 ACSYyM, STATISTICS ° 
el of r) 
oS Sl PIC Ket Os eR ov Hi vole Pee eHdekdoet ne veRti vores eKdeeseSehoeneKveeeeereueegesevve 
* SUBROUTINE ACCSTA 7 
° COMMON /LAREL/ RI,RCOJ,SS1,SE1,4S1,HE1,PXS(128),PXE(128),PYS(128),Pe 
e LYE (228).PZ28(12A) PZE(128) +, VKS(129) -VYS(126).VXE(128),-VYE(128).NSI.# 
* ONE TN, RETAS, RE TAE DELTAS, DELTAE, 392,°08(5),PDE(3), PKILL (128) ,PPATH(«® 
e 3129), PEVADE (128), DIF TI,RANGE(128),STATD, STATE» PGS(5),PKDS(5) ,POS(5e 
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I 
I 
I 
SSOhe ee sHeReeRGHeesger tort eseaec teste eGnotcoer sec ase esessteenaecatsecks Gate agtdaesian 
° RETURN ° 


SOSKHR OHHH SOSH SGCGSHS HE SoSH EeFGEGeSe Goce sSH ee oHe ee EeHPeOtrsetentreceseeGesesoagsaesian 


soo oeoeepeeeee oe geseeaeaeoese ee 


SOHO ROSHHHeSHSOH Hote eet ot serHeseGeeteehocsetaeoctraserssoessGseaceeseetdeasoatedcias 


- 
en 


e 
2 ENTRY SPETRM¢ N,», DUMMY4, X4 ) e 
° X1 es AMOD( DUMMY1, DTRAD )/DTRAD e 
° N = DUMMY1L/DIRAD «+ 1.0 e 
° ENTRY OSPEcT( N, X41 ) ° 
° BAFFLE = RADSPC(N,J,M) © X18 RADSPCING1,4,M) - RADSPC(N,J,M) ) e 
POROHSSPEHHSGGoeeotiogntaescesesegsacGsGsestcasFeotaraeeesceseoantsacs#esdanaenatcecoas 

I 

I 

I 
POS HPS FSGS oGtosel eds saeGGaots HG sce HtHOkessoeeHsteeosaeos#ohc eres geeacos 
* RETURN ® 


HSHK HSH SKH GSS Gee HeG oe Se RFHHHHHOGH GoGo Greer eer Heese eSHGHonsseecesEtsneaecaacce 


PPPOE HHS HEHHHSSH Ettore oe seeH Heese HotHeecc Hora eseaeeeseoceescesssesveceescanoan 


act ° 
PSSK SS HFC HHSHRHHHGHEH HSH ESE eSe HEHE Hee oGcaestreheteseeGeseaaetatseseceoeggaaorca 
I 
I 
I 


SPSCT EGO SMHSHOSS HH ON HHS HEMETHOTE DEH HOO RHC HET OH RTOEHOHETEHDEHOOHOHEOH EAE 
* END * 


SOSF SHH HS SHSFSSHHHFH HET ETHHHHHHEEHH HEF HOSHeSeHE Hee hee eFOeHeeaeeeesoCGeegaetacog 


— ; 
Tao en oi al a a 


CENTRANSE) 
I 
I 


POS GHRGSRERRRPHRHEHRE TORE ERR EERE EEE REAR ETOH SHAE EMEA eRe eee ec ee ae esonin 
eT BIAQ RELATIVE BEARING ANGLES AND RQ ANGE : * 
2S ee ee ee ce ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey 
a . 
> e COMPYTING REL. SFARING ANGLES ANN RANGE ry 
. SD 
a HSS OREREH HORE NEN IER SOPHO EAH SEU REE PRS SEEK SHER ESR E HHH GEE HES 

SUBROUTINE RELRR * 


COMMON /LAREL/ RI,ROJ,SS1,S5SE1,4S1,4E1,PXS (128) ,PXE(128),PYS(128),Ps 
1YE(128),PZS8(128),P7E(128) .VXS0129) ,VYS(128) ,VXE(128) »VYE(128) ,NSI,» 
ANE Te NRE TAS Bel Age nel TAS, yp LT A=, 32,PpS(5),Ppe(3),PKILL(128).,PPATH(« 
$129),PEVyADFE (128),DIF 71, RANGE(128),S7APD, SATE» PGS(5),PKDS(5),PO0S(5e 
4),°1S(5),P56(65),POE(3),PTE(3), TL2H,EVPH, WRANGE, 8PS,BPE,PHIE,PHIS, As 
SLSUBE+ALSURS,»STNPSFsSTNPEV,M=CO,NPCO,BSP.»BEPeNR» Ke EDEPTHsSDEPTH,RC® 
BF yp SeFRWSe6 4 S,PTS(428),F XS (4 28)» 2NS (128). FNS(428), FOE FBSE,FLE,F2Ee 
72F 2S+PTFE(128),— XE (128) .PNE(128) »=NE(128) »XEeXSs+SUMKIL» SUMEVA.PRE»P® 
ARK,PE(S), AI PXN,ALPYN,NSMAX,N=MAX * 
PXSPKE CN) -PXo(N) . 
2Y¥sPYECN)-PYS(N) * 
PRIDPSPKeevePYutD & 
RANGE(N) = SORTCPROD2) mn 
SRPE = (-VXE(N) @PX-VYECN) BPY)/ (SEL HR ANGE(N) ) ro 
CBPg = (VX CON) &PX4VYS(N) BPYI (oo L #RANGE CN) ) % 
BSPSACOS(CRPS) ® 
FFP SACHS (CRPF ) + 
ce eee ee ee ee ee ee en ee ee ee ee ee ee ee Be ee ee eee ee ee) 
I 
i 
I 
oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee eee ae 
2 RETURN ° 


RASCH KES SOOPER SHS LHS HAS SHARKS HOH HTT HEN ERT HREGHERREHOR EGET EEHE HEHE ees 


see © Oe eee es eee eee ee Bee es Bee 


Sf ee ee ee ee ee ee ee ee ee oe ee ee eee eee ee ee ee ee ee Eee ees 


* END e 


Pee fe ee ee ee ee eee ee ee ee ee ee ee ee ee he ee ee ee ee ee ee ee ee eee ee 


| 


Far aeeeenenieaetlaeias chen deniers a ee 


CENTRANCE ) 
I 
I 


SREGKEACOEEERPHEKE EE HERE E SEH EEE HERS HR EEHAHEEHH HEEB EHEeCHHeeGdagtaesen 


eTBIITD REARING RIDER % 
SC PRE REOHOTHR FOE ET EET EE HERS EOEEE ETE ERT ORES HEHEHE HEREC EEERORGEEtEDES 
a> * 
ao #BEARING RINER 
5 + * 
[ POO TES Se. Seer ee ee ee eee ee ee ee ee ee eee ee eee ee ee ee ee ee CS LS ae 
7 % SyBROYTINE RRIDER * 
& COMMON /LAREL/ RI,RCJ,SS1,SE1,HS1,HE1,PXS(128),PXE(128),PYS(128),Pe 
} * LYE(158)>, PZS(19 8)-PZE(1 38)+VXS5(198), VYS(19 8),VXE(1 8) -VYE(15 B)»NSl+e 
j % Nel, f »BETAS, Setabs ee TAS: pELTAE, 32, PyS(5), Ppe(3), BKILL (128) ,PPATH(« 
+ 3128), PEVADF (12a), DIF y1,RANGE(128),Sy7A70,8S Ary E,PGS(5),PKDS(5),P0S(5¢ 
: * 4),71S(5),PGE(3),P0F(3),PIE(3),CL°H,EVPH,W ANGE, BPS,BPE,PHIE,PHIS,Ae 
| + SLSUBE» ALSURS»STNPSE, STNPEV,M-CO-NPCO.BSP.BEP»NR»K»EDEPTH»SDEPTH»RC# 
5 Ea 6,F0S,FRWS,F1S,PTS(128),FXS(1728),2NS(128),FNS(128),F0E,FBSE,F1E,F2Es 
+ 7»oF2SePTE(12B8) ,F- XE (128) »PNE(128) »©°NE(128) »XEoXS»SUMKIL »SUMEVA,PREGP eS 
- * BRK,PE(3),ALPXN,ALPYN,NSMAX,N=MAX * 
j * VXSON=1) Foot #ALPXN « 
- + VYS(N- =4 2881 eA PYN % 
Sete ee eee eee ee ee eee ee eee ee ee ee eee eee ee ee ee ee ee ee ee ee 2 es 
; J 
[ ; 
* I 
eee ee eee Se ee ee ee ee ee ee ee ee eee ee Le ee ce 2 
+ RETURN & 


oe ee ee eee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 


SUSE E THERE RRHRHE EGGERT GRBROHRSHEAHEHEE EEE EEE EERE EERE dase goaaag 


* END r") 


HUSH ERR HSH REHE EK EEN CHEER ER EKER EEE EEE FEE AREER eeeHeGegteane 


39 


I ce ee ee ee 


OR se ere ee came et sere — ~ SS . ————— 7 - en TE AR 


aminpahatniambiaitindes dere 


(ENTRANCE) 
I 
1 
Se Se ee ee ee ee ie ee ee ee ee ee ee ee 
acCIut COLLISION e 


Ce ee ee ee oe ee ee ee ee ee ee) 


act % ° 
a> #COLLISION ¢ 
et ry * 
ae ee ee ee ee ee eee ee ee ee ee 
® SyBROYTINE COrits a 
? COMMON /LARELZ RI,ROJ,S51,SE1,4S1,HE1,°XS(128),PXE(128),PYS(128),Pe 
* 1YE (128) P28 (128) »PZE(128) -VXS(128) -VYS(12B8) »VXE(128) -VYE(128) NSIT 
o @NeT Ns Re TAS, Be TAGE DELTAS NeLTAG, 32,P0S(5),PDE(3),PKILL (128) »PPATH(o 
® 3158), PEVADE (128), DIFTI, RANGE (128). STATD,STATE,PGS(5),PKNDS(5),P0S(54% 
es) 4),P18S(5),PGE(3),POE(S),PIE(S),CLPAH,EVPH, WRANGE,BPS,BPE,PHIF,PHIS,A# 
« SLSUBE s ALSURS, SINPSE, STNPEV,HZCO,NPCO,BS®,BEP.NR,K, EDEPTH. SDEPTH, RC 
% 6,FOS,FRWS,FIS,PTS( 128) .FXS(128) »2NS(128) -FNS(12g),FO0E-FBSE,FIE,F2Ee 
* 7.F 2S,PTE(128),FXE(12B)+PNF(128),°NE&(128)+XE2XS,SUMK YL» SUMEVA, PRE, Po 
e ABRK,PE(3),Al PyN, ALPyN,NSMAy,N=MAy od 
* NSUB1sN-1 ° 
ry AL1= ALPXNeVXF CNSURL) *ALPYNG VYECNSUBI ) * 
\; AL SSQRTCAL1##24SS12#02-SE1 992) -AL YL ® 
® VXSCNSUBI )2VXe CNSUBL) AL OAL PXN e 
t VYSCNSUB4 )FyYE CNSUBL AL @ALPYN e 
Se eee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ey 

{ 

] 

I 
HOPOH MEME GOHFOHOHE RE EEE FEET TEE EHD ERD EO FOH OHTA O HH EHO HOHH HAGE ta did 
® RETURN : 


oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee) 


eee eee See ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ey 
% END ° 


ee ee ee ee ee ee ee ee ee ee ee Re ee ee ee ee 


SPU rence ces . — a a , 2 = mee 


SOROS ae a yon ean ll 


CENTRANCE) 
! 


PASCSHSHH SASS FHTRAHOK HT POU HHOHHHEHHARAAH DE FIOO RAV HSSHHAREHOHES HEHEHE EH ESO EHEEEHS 


eZCIRRECOO SUBROUTINE CORRFC e 
ot COMPULE NON-FREQU=NCY DEPENDENT CORRECTIONS ° ] 
® SUAROUTINE . | 
2 5 CORREC e | 
® Ss ( MUMMY1, K , M ) e 
os ° 
o> FL PHOKRSTEFSEHRH THT HAART HARAIAHHOH EO RAO HAFAHARHEHOREKROKBSSSHESESHELEEEEEELE 
o> * ee 
et CORRECTION FACTORS FOR Ray TyPES ° 
et . ee 
«Ss PEPSSSHSASAOHS GOH EL HOFTAEHAHHHOHHEOCEOUE SRF HOT HHS HKSOHHHCHSHOSHEEHESHHSSEHeEHIE 
Ce ° 
e COMMON ¢ ANGRAN 7 ANGRHER(2) e 
° COMMON . 
° C 7 ARRAYC / . ; 
° OD NARRAY(2) e } 
° (2: ARRYH1. ° 
° Cc ARRyH2, . 
- e e ARRYWIL, e 
. Cc ARRYW2, ° 
r ° Cc DEiF . 
° Cc FRESL , e 
° c FRES2 , ° 
-- ° c QTRANI, . 
fy 6 QTRAN2, e 
° NDUM2 ° | 
- ’ COMMON . i 
° C / BEAMCR ¢ rm | 
7 - D BFMCOR(3,8) e i 
* COMMON e 
{ ry C ¢/ ARRAYP / e 
J ° D ANGDGA(2) : . ] 
. Dd ARRAYD( 322) ’ * | 
° ) COSPHI (2) . * / 
e 0 COSRAD(2) % . 
° Cc MSHIPS, ° 
. ° D SINPHI(2) ‘ . 
° i) SINRAD(C2) ’ e 
. D TSaAR1 (3) . bs! 
y . i) TSaR2 (3) ’ . 
ry Do TMaAIRX(3,3,2) ; Py 
[, * 1) TVECTR¢ ge2) . * 
‘ ppu"s . 
e- ° 
- . DIMENSION . 
. D ANGSIG(3,2) F ° 
} . D Sarr (3) ’ . 
. i) Sare (3) . ° 
ry D TaRRIy(3,2) ry 
ec ° 
. EQuI VALENCE . 
° Q ¢ TARRIV, TSaR1 ), . 
bs @ ¢ ANGSIG. Sart }, RS 
° 2 ¢ ANGSIG(1.2),SAR2 ) ° i 4 
> e | 
et ry ; 
° C1 # COS NyMMy1 ? ° 
. ANGSIG(3,M) = SING DUMMYL ») . 
POOF OOOO OHOHOTAOKOO ERDF OHOEHOOR ERE ERE TERT O SHOE HORE PH OHO ORE HOHHOHORO ROH ORHE 


: : 
tI 
| I 
i 
& 
5 


POSSE SH SOSHHHHT LATO OTE RAH HROSHHHH EHO OTH OOHEPEHOHEHOHHSEEEOHESO HHS O HBAS 
. IF ( NARRAY(M) (FQ, 2) Peon ee OD 
° » GO TO 10 e 
POSK SOPH TOME TREOROD FOF OE HOS SOHEE HEHEHE THEO O OH OE RHOHREEHS SER SOHHOHHH SES REREHE 

I 

1 

1 
POMP OHHEHHHHOHHHEH OEE AORSOEOOH HHS ESTO HHEOOHHOHERESHHHHSHHEHOSO RSS RHEOEE 
. ANSSIG(2,M) = CiLeSINRAD(M) . 
. ANGSIG(1,M) * CleCOSRAD(M) . 
FEMME TTAOHSHHOSSH SHOT TT OREHSHOHH HEH DOHRHHEHCSFTOHHHEHEHHHHHEHHHEHEHS HHH EREOS 

! 

I 


ee ee et ee et ee 


41 . 


il i a lial 


seers SOOM HETE OHHH TOS SCHASHO SSH THE OHHH CATHHOSSAHEHAHHOHEHHHHETHSEEBH EHS 7 
MONO Tig Do 200 * ‘ 
° ! $e 223 ° 
Seaver) SPereaseteever > CPSP P Me THeHHE EEK Oe CAF AheFeHOFBBCBHCoOeHEORL HOLE HReP HED 
! 


I 
! 


BOSC SHPO SSSA HOOTH OTE SE SOHSEHOHHROHEAHOCHHOHISEARHORECHTEHRHOOHCHLH OE PEM ORS 


e TARRIVET. MY = 0.0 ° 
POSH OHHH HHRSEFE HOH HH He TOSS RM OW ROK HEH SHH FHT RHR aE SHHROHH HH ADEE HOCHFeVeReleRin 
! 
1 « 
\ 
PESTO FH OPA POH RES SHC OEFHAHOHAOHAOTEHE OTH AO SAT HOKE REHOCTHHEHELHFOH LAHORE POXAEHE 
ae ae tl DO 100 ° 
* I J 21,3 e 
SESC SFO SSHSSOHAEHEH SEFOMSHSHSRHOSHAEHAHH SPSS eHeFelCHaeleaeaeHess ages ssasuo ™ 
1 
i 
I 
SPOKSOK ASH OH PIMTOHEOHOAHEC SSS HHS HSHOH LATE ROHATECCHHOHHOPRHHEUROHHEOHDH REDE DLEG 
2 TARRIVEIT.M) = TMATRXCT,J,42#ANSSIG( ULM) . ‘ 
° E « TARRIV(T,M) « 
POMPOHHHAS SMP STAMR OHHH OH OF AHMOGASHOHTO OH OS HE OHT AHO REHMOHHEHREDHROMEREORE FEB EOE OD 
! } 
1 } 
SRSGSAS HSH HSSSHHAHHGHOHFHLEHAHSAHAARHTHHOHOHHL HHT HE HTH SSECHROKGAHAHEOHCeLeReCHaLS 
Upssh pened eecect: s£00 CONTINUE s 
VQPP OH MH SHOP SHFHHOKH STO HOO FH SSHHOAHRFOE CHORE OHN HH DOOHHDAOHHHHEOHOOVO CHER OH DY 
I 


I 
! 


POSH SPOSHSOSEOSTHEOGSHO OO HETERO Re de Re HOD HO Aa HOD SEH OHHAHHOHESCHOOHHSO Se PEHEOCYH 


° SEMCOR(I.K) = ARRAYD(I,M)e¢ TARRIVGETSM) - TVECTR(I,M) D . 

OVS OHOKRSOL HSH PHHGH OHO SHESCHHOSHTESHOFHAT HOH FHS CHB OH AH HHHEHHHEDSACHHECHAeSHB RESO i 
I 
1 
I 


SRPSCSCHHRSSHSATHTSH OAT SET SSS SSR OTARRO NHR STALE SHH FeHFHROFHaSSHHHHCOTeSOe EOE 


sev eececeeteees® 209 CONTINUE e 
POMSKCSOKMMSSSHHFHSHH OHHH SF OSKSHHESTSSEOHROCHR IOS SH aseKeOHeHeADEBeOSLeAee Bovis 
! 
i 
I 
SOMO GOKCKHBHHSFOGHGoGH CHO HSCHSlGeowaTeoFooor Fares navesseSeseeossSSScegsenetevig 
° RETURN . 


POSSHOCFHHSSHGHOSHOHE TOO AO SOK MFRS A HTH HH OHOF EHSL AREHEAARHHOTEHHAHEH SOL eCEeLD 


POSE SOTHO HGHSHFHHOSHSH HH OOHHHHOHSHSHAAHOH THOT HHHSFEEHEHHERHHROHELEHHEFR AGERE RETE 
- 


Oe 


et * 
COSHSHSHESSHHSHEHHHSHOGOTHOSSHOSHOHEHHSHHUHOHT HHSC SHH SSEHREHO PHRF EHEHEFH RO EHH BEDE 
OG ods. 6.00y 406 SORA EUEAG HE EDNAS OU CHORE EAR OR 


POMOHDTOD OOOOH TORE DED ETOOWHT ROD MOOOER DOO EMAC OO TEOTO PER ECRETOOEREREOOHOEDL® 
® 19 CONTINUE e 
e C2 = ANGDGA(M) - ANGRER(M) . 
* BEMCOR(1.K) = ARRAYD(1,M)eC1eC9S¢( C2 ) ° 
. ° 
. . 
® * 


BEMCOR(2,K) = ARRAYD(2,M)eCLOSIN( C2 ) 
BEMCOR(3,K) = ARRAYD(S,M)@ANGSIG(S.M) 


CHOHAFOLOSHOHOLHHOH HEF OSHE HH SHAHHTOTAOFOHCACHODREHFOHHHRTAHHSOOBCESZEHEaT 


1 

I 

l 
SPSL HOOHSHHSSHHOHHH HHA OHREOHHSHTHH HOKE OTOH HM ORHEHHHHR EHR OAHEOEES REZ ABS 
. RETURN ° 


POMHHHOHOHHHOHHOHOTHHOPHASHOHSTFFOHOOHO STFA SM HTH HHOHHHHEHHHFOCHHS EHR OHHY 


POSCOHK RA SOSHEHHHHO AHHH THHHSSEH AE HOCHHTOHH HHH OHHEHEHRHEHO RO AHROHCHLEEHERDVE 


ec « 
PPSOHOAHOAOHHOFOO THO O MHF OEHOTEETEFOOH TIVO HH OSHOASORHOSHH ERO TDEREHEOH DESH ORO | 

1 

l 

! . 
SHSFOFFSHHHEOFEOHHHOHO HEF EHSSHSSEEEHEOESSHHTHOTHHSHSHHHOHHRH HEHEHE OHAS RBH O TS | 


e END . 


SOSSEHCHHSHHEFESHHHHHHFFSSSFHSSESEHHOTHHOHHOHEHHHESHEHE HHH HHOEHHOH HERERO BLO 


apni Senor: 


1 
POMPR MOSH HHOHSHRHHHHH RE He HOMME MADeOO Oe EeH Sl AM eeeOHeseneeeHeeeBeeeeoteauy 
e®lSDSMIVA00 SUBROUTINE DEMyVvA 
*lDEMIV000 SUBROUTINE FOR COMPUTING THE MODIFIED PARAMETERS 
SUBROUTINE 


rs _ = =e oz aw 


© ° 
; ‘ s DEMUVA ' 
° S ¢( NDSTAT, NESTAT ) | a 
5 at . j ] 
¢ aS HTHAFARRHHVHT OL HOOK ARREHKERE HR RAO KEK OOD HOO SF AHS RFOHO KH HP HHeHREHHHOHe SBE GO ; 
7 et ° ee i 
Hy eS ® ee } 
3 et e ee p 
i yo} HHPSHFH RHP ORO HO RORHEAHRAOCO RAH HARK HA TOKREORHORHEHREREHRECHOKREF HOCH LAH EHDE 
& et * - | 
: ° COMMON . ) 
F r C /¢ SIGNAL ¢ ® | 
oe ry ) PRYSEV(128) r ° 
; ° v PRYSSE(128) ; . | 
; 5 ® D PRNOEV(128) ; e | 
; ® ) PRNOSE (128) ; a | 
. ® i) PROF VA(126) ; a 
. i e D PROSER(128) ; r) | 
i ® VAR, VA(128) ; e 
‘ - e R VARSER(128) i ° | 
i ° v GMUFVA(128) ; ° ] 
rr? * 13) GMUSER (128) ° e | 
i ® ) De VAEV(128) : ° | 
: L ® 0 DEVASE (128) ‘ e 
' a D DEMUEV (128) ; « j 
t > D DEMUSE (128) ; e 
£ : ® (2 THREVA, ry ] 
; * C THRSER, 
- * ® Cc NTIMEN ° 
: o> e 
- ® EQUIVALENCE ° 
; | ‘ 0 ( CTWOPI, 21) ‘ 
e j a> e 
: ec GMUEVA‘ ) = MEAN OF SMOOTHED FyADER S/N ry } 
: ec GMUSER( ) = MEAN OF SMOOTHED SEARCHER S/N e 
; } ec NDSTAT = INTEGER VALUE OF THE D-STATE * 
' [ ec NESTAT * INTEGER VALUE OF THE E-STATE * 
< ac VAREVA( ) = VARIANCE OF SMOJTHED S/N FOR EVADER « 
es VARSER( ) #& VARIANCE OF SMOOTHED S/N FOR SEARCHER ° 
- ec? PROSFR( ) =& PROBABILITY OF DETECTION BY THE SEARCHER ° 
' Sg PROEVAC ) = PRORABILITY OF DETECTION BY THE EVADER ° 
3 ec THRSER = DFTECTION THRESYO.D FOR THE SEARCHER « 
eo THREVA ® DETECTION THRESHOLD FOR THE EVADER e i 
eS PRNOSE( ) #& PROBABILITY THAT DECISION IS NO DETECTION BY SEARCHER® 
#2 PRNOFV( ) #& PROBARILITY THAT DECISION 1S NO DETECTION BY EVADER e 
et PRYSSE( ) # PROBARILITY THAT DECISION IS A DETECTION BY SEARCHER @ 
ec PRYSEV( ) = PROBABILITY THAT DESISION IS A DETECTION BY EVADER e 
ec DEMUSE( ») =& MODIFIED MEAN OF S/N FOR THE SEARCHER ° 
ec DEMUFV¢ >) #& MODIFIED MEan OF S/N FOR THE EVaDER r 
ec DEVaSE( ) © MODIFIED VaRI,NcE OF S/N FOR THE SE,RCHER ° 
ec DFVAEV( ») = MODIFIED VARIANTE OF S/N FOR HE SEARCHER ry 
ac * 
* Z1 & 6,2831853 e 
r) DFMUEVONTIMEN) = GMUEVACNSIMEN) * 
« Z3 8 ( THREVA - GMUEVACNTIMEN) ) #0272, 0/VAREVA(NTIMEN) * 
HKSMHRHAHHHHHHAHRHH EVP THO RHHHOHHRH HAH HRT HRB Hee HVLHHSHHKeHseeneeHeHeKGaGeetanvea 


1 
1 
1 
1 


A. iat le ie lak Oo da ans 


HPRAU HGS FAHESSOSFOHS ESO OE HOSA A HHH HREM HGOSE HTH HATOKRMOHRORERDOHDOOHEHE OCHO HEAT EY 


° IF 23 .GT. 88,0 ) Bor 00 AD 
ry * GO TO 10 ry I 
HRPM OHSHHSHTIC OHHH O SO HY HOMARHSEHEBARAHGHOTHAHG ee SH HSHheHOeesehonnraeeoRtenregaeetaese J 
I l 
i J 
‘ } 
PAPAS PAR HOHKVH HOKE COOK RAHHE ROOK REE HOCH PO HMO FOO TO GEOFHRHHREOLOEEOsOtEedHOse I 
° 24 ® PROFVACNTIMEN) ° I 
° z75 s 0.0 r) | 
* IFC 24 NE. 0,0 ) 25 = PRYSEVCNESTAT)/24 ° I 
® re ¢ 24 NE, 1,0 ) 25 = 75 ~ PRNJEV(NESTAT)/(¢ 4,0 - 24 ) ° 1 
® DEMUFVONTIMEN) SDEMUEVONTIMEN) *SQRT(VAREVACNTIMEN) /21)@25/EyP(23) I 
Pe ee ee ee ee ee ee ee ee ee ee eee ee se ee ee ee ee ee eee 1 a: 
! I 
DiC ree pirealiel rieloseiereaheaienerecece ane isle eiale: Sieve: dvalesiies clea ao 010 
\ 
PHOSKO HO HO HSHKHHFA HEART TOMO HEMeEF OEE HHE THe oor OKCeO RAE HHHOBeDaeCHeTFOoeoeGanig 
® 140 CONTINUE ® 
° DFEFMUSECNTIMEN) = GMUSER(NTIMEN) * 
° 72 & ( THRSER - GMUSFROINTIMEN) )88#272.0/VARSER(NTIMEN) ° 
PHOS K OHH HS PHOHHMOHEE RHO MO AFACESTH SHEET IASE HEE OHeOHeHeehOeaneReeeeteesasenornea 
I 
] 
I 
Ce ee ee ee eee ee ee ee eee eee ee ee eo ee Be oe Sees 
® te 22. .Gt. 86.0 ) Peeve D0 
® # 69 TO 20 e 1 
PRPC HHO SHS SSH HOS VMOGO HET HOST O MFO HE HP OPET OHO HE TORRE OHRGHOFEO HOFER ABO OOD I 
I 1 
I I 
} if 
SROKA MGA HHHMFEROHOHSH HATO HAHHO DO HHOU AHR Ho Heo HHO EEOHFHHenreHeFOFOnenegeania ! 
e 24 & PROSER(NTIMEN) e I 
# 25 © 0.0 e } 
° IFC 24 .NE. 0,0 ) 25 = PRYSS=(NDSTATI/24 ° I 
® FC 24 NE. 24.9 9 25 = 25 ~ PRNOSECNDSTAT)/(¢ 1,0 - 24 ) ° I 
° DEMUSE(NTIMEN) =DEMUSE (NTIMEN) *SQRTCVARSER(NTIMEN) 71) @Z5/EyP (72) oo 1 
SOSH HHFOOKOPHOSHOOH OP GHC HOHHHOAHH HR HOKO HEC CaTeHHHSHH HHH GROOM HET ORs HHeroe I 
i I 
OiCy siaisiwtowheiereista be eiMleiew oA View Mew ~ Ces vine S vce 4 O 
I 


PRHKM HOFF HOSHKOHOAHHH OHH ae OHHHOHA Free eane Reet eet soOaseeessoeeonHsaecestentaagtavin 
® 20 CONTINUE * 
* DEVASEC(NTIMEN, = VARSER(NTIMEN) * ( THRSER = DEMUSE(NTIMEN) yo r 
* E ( DEMUSF(NTIMFN) - GMUSER(NTIMEN) ) ° 
® DEVAEVC(NTIMEN) = VAREVACNTIM=N) #* ( THREVA - DEMUFV(NTIMEN) Deo ° 
® E ¢ DEMUEVONTIMEN) = GMUEVACNTIMEN) ) e 
2 * 


POH OSC HHOHEMHH HOGG ESOC SHOMHECHORAHAOHH OHHH HOH HKEKeHEHOHHOHCHOeHRECHESeetons 


HSHSFHO OHH HOAOHHSHP HAHN OHM HO MHOHHEHHFTAO HEH HHOHTHHF HOH HAHHHH GHA H HHH HEH eBante 


® RETURN ry 
HMOKEHHTHFHOKSPHHEE SOHN TOMEKHO HHS HHF HVOF OOO PH eHOEHHePHreeedeveteomearania 
POM UE HSH HP OSHOP HOMES SPOT APH ROR FH HAHN MUAH S GEO MHOHAAHHAHHGARAGeCACeagaataaie 
o> e | 
POSS AOFOSFHOSMHAHEAHO SETA SHARHEEETAAAEAT HTH FATEH HHH HHHCO HOHE HERERO RE HORo Roo e 
id 
I 
SVSKATHHHPOHHRETHHO HH SH HHHAHOHROHHHHOKH THM H HOT EOHFHAHe HHH OAORHOeCHHMeHeetanrea 
° ENO e ‘ 


sverveorPePeevnon aad PHRHOKRAS HOLM HPH HHH HH HT OHHH HOH AHHH RSH SSSR PHRF HHFHsasaaseaia 


ee Bec Mie i Mi nS aia at tlc 


= == 


il nial ale SL te KM WP oo 8 8 


CENTRANCE) 
I 
l 
HLVGSMOM SL FSO HSOGCKH HH He Pc oe PPAF Gases ee vgt stor ear evt_eaResOhegeanreeesseensaasesin 
®lEXC4NGOO SURROUTINE EXCHNG ° 
®lS=xcHOn0 SURROUTENE FOR EXCHANGING TWO VALUE ry 
ry SUBROUTINE ° 
cy Ss EXCHNG « 
® S ¢ FIRSTO, SECOND ) e 
act ) 
ak RAH VHS HSH SHO KH HHH OeRFaedeeseade terest ear sh aeveel sean acaetgeeenecdseataane 
ac ® ae 
ec THIS EXCHANGES THE yALUES OF THE INPUTS « 
ac a ae 
2s POPS G RS FS eGR Ge RPS RGR FA dade ds tease eave eevee etsGeaaecetesererseadeaaiceae 
o> « 
e DOUMMYL = FIRSTO e 
o FIRSTO = SECOND e 
e SECOND = Dtmmyt * 
SRPOCHRHOGFHSSHSSH HARE GEOR TOKFSGHESRBEERETAGC EEE EET SH RFeVFVHB@asavnssHselranasggvaavre 


I 

I 

I 
VRSCA KFS SSH PSH HH HHS Re HH HERS RHRHRHAKRHOE SIMS ote esac eenReHsShegane see Revawseawavig 
* RETURN e 


SROSOH ALS SFOS S HH GENT GMP FV AH HAR eoas ae oat He oOU PERE HHO eteegOHOAeBeKsveateetavin 


PPSPOO GR HVSRFH OHH EROS HT HRS RHA TA AH HMSO THOT HR OAKH HAAR HME GHEE eTeDeeEMeena 
ec e 
SPSP AVF SHOP SHO SH HS HHO PHS HOSP HHS MSH SHAH HTS E HHO CHEE MOHHOAMABADORHRHTHRBeReoara 


ee PPPS E CELLS See eS ee See eee Tee rere Tee Lee re rrr rer errr rey Sr rr) 
° END r 


HKKVSASAIL HSS SHH H HOHE HHH Gee HGH ROSH Fea eet ess oR eer ehascaeseasaeeesesoeteeRageageara 


ee ee 


CENTRANZE) 


I 

J 
Pe Ce ee i i ee ee ee a 2 ee ee. 
acFILT PRE-NFIFCT. FILTER RES ONG: e 
aS PIMPS AHAAAAA ASAE HOG AEAERHRHRHEHREET AEN EE SH OSHA REHTERHRE REDE ee eGoReeseoe 
a> ¢ rs 
o> o» Sua, FOR COMPUTING PRE-DETECT. FILTER RESPONSE ® 
a> os * 
eS Ce ee ee eo ee ke ee ee oe ae. 9 
e SUBROUTINE FILTER ¢(FO,FBWLF,Y) e 
2 Y=1,/01,* CCF -FO)/F RW) oe?) « 
Se ee ee ee ee ee i ee ee ee ee ee ee Be ee ee eee 

1 


I 
I 


Se ee ee ee ee ee ee i ee Pe ee ee ee Oe eee ee) 
® RETURN ° 


HAH APE SSS SH ROGH HOP ON CHOPS HSH HH EE RATHER ae eee aeeH Ree eee eeeeeaeteoetenva 


Pe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee See) 


o ENO 2 


NPGS MP STS SO HHH H HH AE COE HRAE REALE REAHON EES EET ERA RRESHRHO RE REE Hee eee dids 


CO PRD 


cones geen 


Tapa mrt ee 


a SS = oS 


en 


yr 


we 


* ‘ 


(ENTRANCE) 
H 
i 


SRP Ve GC Sh oHSeGHP se OG HH Oe Hess easGeosesev att eov eer St awveeseSeesee ar. GHeHGeReHSseeeeacea 


elFyF_9CO0 FuNCTION FyFLOC ° 
ol[FVE_CO00 FUNCTION FOR COMPUTINS THE VELOCITY AT ANY DEPTH e 
@ FUNCTION FVEI1 OCC DELTAD, LAaYERN ) e 
o> 2 
eS KrseeEsegoG@ae Hi wr ct seescanesesetiaretgatreacangreveGeGesancaesetetegce@seaegata 
a> e ee 
ec THIS COMPUTES THE VELOCITY CIN KLYD/SEC) at ANY POINT IN THE LAYERe 
oo RE Rae Te) MR ee Ea TE eT Re ae Ae EA Pe PR 
et ry 
° COMMON e 
2 C 7 LCONST / ° 
e Cc NULAPO, ° 
& Cc DEPROT, @ 
ry n CONSGO(128) ’ e 
* v CONSG1(128) , * 
e 8] CONSG?2(128) , e 
2 n CONSy0 6128) ‘ ° 
a D DFLTA2(128) > @ 
* D DEPKYD(128) , * 
° D SLOPEI(128) ’ * 
® 0) SPnkybD (128) e 
et @ 
25 OFLTAD = DEPTH FROM TOF F LAYER TO POINT OF INTEREST (IN K-YDe 
ac LAYERN = NUMRER OF LAYER IN WHICH VELOCITY IS SOUGHT (DIMENS] 
e> ry 
e FVELOC = 1.0/7SQR1( CONSVO(LAYERN) + DELTAD®( CONSGOC(LAYERN) ¢ * 
® F NEL TAD#®CONSG1(LAYERN) 27( 1.0 * CONSG2(LAYERN) ®DELTAD )#8#2 ) ° 
PMS VS ASP HSH HT SHO HAH OSTA HER HHHKHOAH HHT oH TCS OU HOAs eeEFGHearHPeseaerenenaeaerg 


] 

i 

I 
POSH SHEERS RAKHRR HEROES AHHH HERE GEG EH Fee ees eee ees HRSveeeaersesPveosa sea aeesve 
® RETURN e 


HHSC MEF SOSH sv sew owes Hse Hs vovHn sete oteereetratasgeaesGsaneoansesegceet@oaetdacuea 


PHP HH HASH KEHS HH SHH EN HSE TEFERAHHEH BAHASA HHL HF HHA HR HKe ADEs oGaGeagteacva 

ac @ 

HHSCH HLS HSS SS RG o sense oes eee estaeeesaaGoc steer eat at eee eekFeeeaeeeReseseGoasaonnes 

HHT HPSS HFSS MHS HK HGH GOK HHH HS HHGe OPH HH Heeger et awseeetFeeoseeesesecBasaeseace 
- 

* END e 

HLH M HSK HH PASH SHH GHG HOC AH HSHHO HRTF O GAGA HHA Heer ate eReeHFHeaeeeeeaecsasaeeeauvea 


: 
; 


CENTRANTED 
t 


! 

PO CPO OHREHH EOE TEE FOOSE MEOH RAH ET TH) CHS THe eFhFeeereeeeereceeeeeaeia 
INTTTAL VALUES ° 
POP OMRRSE CORE THEE SRAM HSEHO REE OH ETH SHAH ORS HHE PH MSLEHOEO HH EOLOOHE De 
e 
TO INITIALIZE yates ° 
e 
OPES RHSEMO FEO HFT ESAHHHH OH ROH HET HAE HS eC OHS RHO BBE eHeFTe Lee OeRELe 
SyAROYTINE INT) . 
COMMON /LARELZ RIZRCI.SST, SEL, AST, HEt PMS (128), PKE (128), PVS(128), Pe 
LER ESEBDAPERCE SS EP PESE PAY RASS LOANS CS BYNES CURR ENE B)NSIoe 
QNe TN RETAS HE TAG DELTAS. pEL TAT. 32.Pn SCS), PpECSI.PRILL (128), PPATH(e 
SLM) PE VADE (LPR, DIFTI, RANGE (128), STATO, STATE +PGS(5),PKDS(5),P0SI5e 
4), PTSCSD POE CE) POE CS) PLES), CL OH, EVPH, RANGE, BPS,BPE,PHIF,PHIS) Ae 
SL SUBE AL SUBS. SINPSESSTNPEVLM-COLNPCO,BSP BER NR eK EDEPTHsSDEPTH.RC® 
S.FOS,FAWS,FIS,PTSCL2A),FXSC1 2B), PNS(128),FNS(128), FOE, FBSE PIE, F 2k e 
PePAS+PTECLPB) EXE C128) ONE CL IBD TNE C12A) XE eXSeSUMK IL + SUMEVA,PRE Pe 

BRK, PEC), AL PAN, ALPYN,NSMAK,NOMAX 

COMMON / INTSPD 74 VXFINT, VYEENY 


s 


. 


epcacaaaae 


e INITIAL EyVADER SPZED IN X-DIRECTION 
e INTTIAL EVADER SPEED IN Y-DIRECTION 


ercncan 


GaMebHEt-HS1 
SG®SINCGAM) 
CasCOs¢Gamy 
PO POPHHOH TES HE CHM OMAESCSH TAR EOETES OKC MHOHHSHRHAERHHH SED HELHOHHODO DEG HLBL 
1 
1 
i 
SPOTS SOPHO SH HOEK SOF OMAAKMHREH SHE HOO RHE He BERLE HOHHRR ETOH OSOC HER LEC ELEC 
. Tt (HEY .NE,HSt) SO 10 10 . 
CPSC TOPO POOH REHOH HHO OHOHOHEARAAAHOHHOHOSH SH SLSR OHHHEHHHHLEEEEOHH LESH eee 
1 
! 
! 
COOPER OSSPOSHPHO SOHO EH EH MOMHOOHAE TER AGHOTAOH RATA HSHHAEHHH HOH RHEEHEHTOD eR Eee e 
e PxEqi) = 0. e 
° PvE (1) = R} ° 
CPST O POSE POSH HSSHE OTS FAAOSHSHOHTIOHFOHOHKL TST SOL ARO HOHHMOKHSSOHOSH LASER OBESE 
! 
\ 
| 
SPH O HOPS HSSOH HOHE SH SOHO PHOTHSADFHHKEC SHH DOH MT HOReSECHHH HEE HEHAHEH EO HEOEEDS 
° So TO 20 ° 


POOL OO TAH POTTO THO HEHE SHE POSSRODTIAHOOO EA HR STLAHOEHHSHRSTHEROOHO HSER OD 8 


eveeceeseereecee ee seeeeeereeeee 


Oise Cede eee COM CeTNEe Oe He Ree Oa 


! 
SOSPETESSAHEHHO HOSES HASTE MHOHAOHHRHHHTT SOCKS SHOP RESHHETEELESOHHHO HES EB ERLE 
° 10 SS#SeieSsi ° 
° $SS2SSesG e 
° sstessecG ° 
. ASTARS(SSS) . 
. SQ 8 SQRT(RIee?-RCyee2) e 
. Sp2aSeiee2 . 
. ss2agsiee2 e 
. AK BAS@SORT(SH2¢S8S2-2,eSSC) ° 
. AY @ RCJeSS1e(SEZ-SSC)oRC JoS=1 oC 50 (S52-SSC)-(ASeSQIe(SELSCG-SS1) © 
° AX @ (SEL1SG)e(RCJe(SS2-SSC)-AS*SQ) ° 
. Pye(iyeaysank . 
. PNKE(Y OAK aK r 
POSTEO FOHSOSOSSEHET OSH THOSOOOHHHEHSODOTEHO HOH EH HEEHHOHCH RSE EHOHEHOH ORO HAO LE 

! 
Oe vecevenerecnceerenrreeeertensateces 

1 
SPSPETFSOSOOHSEES SHOT OT OPES EEHEREEE TOOT TS OH SHKCHHSHOSH ERT HEEEHHHOSOH EH EEDS 
20 VXECL ecELecG ° 
VyECL eSFLeCG . 
vxsS(1)eo, * 
VYS(t)#SS1 e 
PZECLI BF DERTH . 
e251) = SMEPTH . 
PyS(ided, . 
exs(ideo. ° 
V¥EINT © VeE(1) . 
VYEINT © VVE(d) ° 
ENTRY RESET ° 
CLPH # 0.0 ry 
Even # 0.0 « 
POCSTSSOOHHSO SSE HO OSE OHSSSHOHTOSS STF GHE HOT OSCE HEHHOSHHEHEHOHEHELOAOHEEOE 

if 

if 

! 
COSCO FER HSSESSHH CTH FOTO AHHO OHHH ESHEOHHOOC HOE SSSEHHOHOHHH RHEE HOHEH AO EEOORLE 
> RETYRN ° 


COOSA TFTO OSES S SESE HH GETOSHHSSAHHHEH HTT HOC HORNS HSSOHOHOHR OR HHOHHHHEHREOREHEEOS 


POOP O SF OOSSSOSEH ETHOS SIOHHAOHESESSEHAAOOHOHSTOHHOHOSHOOHEREHHEHEORE ESE RE REY 


SOO COTTE EHOO SHEE OE OE DOK OSOOHEHEO SHO HEOHT THA SHHTHHEHHHHEREEHHEHT OHO HEREETS 


0 
1 
! 
I 
1 
I 
! 
1 
1 
l 
1 
I 
! 
t. 
! 
i 
0 


oa _—| | Ss oy 


. ‘ * : . ‘ * : . ; 


[ 
C 
[ 
I 
i 
[ 
i 


— - 1 om nena a ee A a — ~ 


RERTESNEE? 
! 


SHOSSCH LPFG SS SFH OHS SSH TESS SHSHPAHSTA SAFO HRT FOF eOFOKRe Le eeHHEHESeEHHHEHEAO DHS HEIO 


SINTEG SIGNA/NOITSE RATIO e 
cS SPS F SPSS SHS SF @ oF He SF SFSF IS SGsaeer 2s et esevavareees#eeeseeeseverce#sSaeeeeasviea 
> bs 
> oe INTFEGRATION FOR COMPUTING THe STSNAL TO NOISE RATIO » 
i o e 
: SOMPS SSSR SS PSS OCAHF HS SOCSHSHF OHSS AQAFSHF FSH TFTOSK HSS HROSHHHERSEHCHSEHHSHRAG ESD 

SyIROYTINE PST GP ° 


COMMON /LARELZ RI,ROJ,SS1,S5E1,4S1,HEL,PXS(128),PXE(128),PYS(128) Pe 
LYECL2B)-PZS(1 28) -PZECL 2B) -VXS(129).VY¥S(128) »-VKE(128) -VYE(128) NSI.®@ 
ANe LaNe RE TASS Be TAG e pEL TAS. ppl TAZ. 32,PHS(5),PpEe( 3), PKILL(128).PPATH(e 
$128).PFyaDe (12H), DIF TIL, RANGE (128),SrA7D,SyAvEsPGS(5),PKDS(5), POS (50 
4), 71805), PGE($),PO0EC3),PTE(S), CL 2H, EVPH, WRANGE, BPS,BPE,PHIF,PHIS, Ao 
5LSUBE. ALSUBS.STNPSE,STNPEV.M=CD.NPCO.BSP,.BEP»NR.K»EDEPTH. SDEPTH,RC® 
6, FOS, FAWS,F1S,P7TS(128),FXS(128), 2NS(128),FNS(128), FOE, FOWE,FIE,F2Ee 
7eF2SePTE(128).F XE(128).PNE (128). =NE(128).XEeXSeSUMKIL + SUMEVA,.PRE Pe 


NAMELIST 74 RATIOS / AINPXS, ATNOX=,ATNPNS, AINPNE,XS,XE 


FILEVAC DUMMYLt ) = 1.07( 1.0 + ¢ ( DUMMY1 - FOE )/FBWE Dee? ) 
FILSER( DUMMY ) = 1,07¢ 1,0 * ( ( DUMMYL - FOS )/FBWS )e02 


BIUK,PEC3).ALPXN,ALPYN,NSMAK,N=MAX ° 
COMMON /TWNR?/ B2S,B82E * 
Z SMCS IGCASSSSCHS SVG oF Coo FH SHHSFHGSS SOHO S FFF eS FeC eves esseFFeveevesSsesr2eeseagseare 
- ° ° 
- # FOS # CENTER FREQ, OF SEARTHER PREDETECT FILTER e 
a oe FAIS # LOWER | IMIT OF INTEG, FORSEARCHER ° 
> F2S = UPPER (LIMIT OF INTEG. FORSCARCHER e 
. FILEVA = FUNCTION ¢OR FI TER RESPONSE OF EVANDER > 
. FILSER = FUNCTION FOR FI TER RESPONSE OF SEARCHER ° 
> s TSK) = SIG, SPECTRUM SEARCHE2 SEES * 
> 2 FXSO¢K) =TARLE ORDERED FROM Of TO HIGH FREQ. . 
> oe PNSCK) =NOTSE SPECTRUM SFARCAERSEES ES 
> @ FNS(K) =TARLE ORDERED FROM LOW TOHIGH FREQ, ® 
> oe FRWS = BANDWIDTH OF SEARCHER PRE-DETFCT, FILTER ry 
: Foe sCENTER FREQ. OF EVADER PRE-DETECT. FILTER e 
> @ FRWE FRANDWI)TH OF PREpETECT. FILTER ry 
> @ FYE BLOWER LIMIT OF INTEG, SOR EyaDER e 
> @ FRE = LOWER LIMIT OF INTEG., “O02 EVADER ° 
> e® PATEK) =SIG, SPECTRUM EVADER S=ES ° 
> oe FXE(K) STABLE ORDERED FROM LOw TO HIGH FREQ, ° 
> PNECK) =NOTSF SPECTRUM FVADE? SFES ° 
> @ «FNE(K)® Tarle ORDERED FROM LOW T1 HIGH FREQ, e 
> 2 e 
im SSMS SFA SSH Ga pr Go ool osseFeSsseggo steer oer esorveseeseesereeesereeHegeneve 
a 
e 
. 
e 
a e 
AINPXS20, e 
K=1 ° 
FyaSsFqs ® 
Setar s eg sseGsGsesoeose te aotaescesssesesedce sc satrasteveesseFFSoeeseseSeesGeGesteavoe 

I 
Agu Gee eT SESE CL ES ee Tee te ee eee ee 

I 

{ 

I 
PROSPER HHH HHSFHSTHFO HS Hee SAHHTHOSHHOBee TOS oc er SF HFSS HFHReoeeesFsSCFeseeseasea 
e 135 AFXS#®FXS(K) ry 
PHSMPFFSRHSSSHSSF HSS FS SHH oe oF HSS HSFHSSHS SHH SFO HF SSE HH HH THES HREGSR eH HHEHHHeLee eee S 

I 

I 

I 
SPSlC esr SS GSH GHaHser VF sot oes F ees seseeh Fant esretaeseaessSHSceenseeceeseeeeeegeaera 
* IF (AFXS.GT,F1S) Go To 10 * 
Loe RPE REE EER RS ERASER ESE R EEE ERE EEE EERE ERE SEE OERE REPRESS ERE SEES EEE eyes yy 

I 

I 

I 
SOSPCS FCS FSHSHHSTHHSHTH SPO FSF HOSHHSHSHHSSHSFHGS HHP HHH eHTHHSSHHRSAHHGREAHHEEHRBFSRGR BH ABLE 
° K=Kot e 
SKHSGSF FSH FHSHSHSSHS HHO HHSC TFSHH HS THR FAH ESF H SSeS evSKaeasseseeseeessevesceaesogeeaceg 

I 


et eene 


eteeee 


ae ee ne ee Oe one oe Ome Ot et oe Os oe ow ee os os ws os 


ao i ae aos omen oe se ns 


49 


aoe 


ote a. sole 


if ! 
H | | 
SLMSPOSSHSHSHPASHOHHRe TSH TEHEHRERDEHH HEE SCH TO OX eM ae Bee eeKBagenoeHEeHeCeoseetenin if 
° $0 70 15 Aaah 1 tj 
COMFSTOOSFOPOM HAE GET HHI ®HAMHKOFHTEGHOEE DU HOO HOMES HHOTHeToODo ROD EC HE OOHeHOeD t 
] 
CVG aieinitang/'e' statin slse: pyielie mseuai pla sits Gpmiata ian pl ean aes gla lorie ininra tase: Aca) szeiej ale 
1 i 
POSTER OMOPOSIOS RASH HOH OT HARASS HF OBO RTOD SEO AHHHKOCHHOO HO DOME M HO HORE DeEOS } 


° 10 IF (aFXS.GT.F 2°) GO TO 20 Citrate ie 
SPSS OOF OPS VGHGee Flow  OKAOL SHPO Pew HO Er oO Hoe sO HHO RHO HEKGHeHoeeeeeceeeeatonora 

I 

1 

! 
OOSHORLATRSOSOHTHEHRGHHTSHSSHFTAHOBGHTEE FORE GHC RE OH PEP HHH dH HPO HvOeRTDH ODER BOB CO 
» CALL FILTER (FOS,FBWS,AFXS,YXS) . 
° ARSPKS =PTS(K)oYXS ° 
® AINPXSSAINPXS*¢ARGPXS@ (AF XS<FXAS) 7 
° “XASTAFKS ® 
° 42461 * 
SOOPER POS HFHO THOT EHH TOMO AROHHO HOE TOFGOE TOT ACHR HOTHOBDEHHOHOCOOHReDEMROtS 

i 

i 

] 
PFS FTPOOFOUHHSOSHH SHOT SHH SAOHEGHOHRAR eae ERE HeersPAaseneFeFoaendraeeeereverseagin 
* $9 TO 15 Poveeee 
ee ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee 2 ee 


(oe ee ee ee ee ee oe et 


GDC swilinciaivai'er ole elceiterw wieentiele letarel/apscenauel @ rele oresyelien sneha see] Mile le: wasted’ iw wreak 


POSTS FO FHSS TFHOTRHM HET HOTHOMOH HOTA ROR EO HHH HoT eC ee Peete eKeeseseeeHeePaRseain 


- 
. 
So 
Vo 


LTT Perr ceer ere eee ee ee ee 


if 
SEOPATROOAOAPHSHSL STG ETO GEROTHSSTHEHTHOTH HSH HOT TEOHE HOHE RTOOHEM OOH EREDORIE 
* $0 IFCAFNS.GT.F2S) GO TO 35 Preeee 
SOOTH HOF AO SHOOT ESTEE ENE SODOEEOTTEDTHOTTETGRTHITO SSOP HO ORR OHHHH ROHR KHDEDSS 

J 

I 

I 


I 
POPOCMPO STOMA HHREAOE UOT FOPE HORA RAO ETS RO ROOM ASOHHPHRGOE EH EOHOTFHOEHEGEGGe | 
Py 29 AINPNS =9, ° ¥ 
* Az} ry 
e FNAS =F1S ° 
OFPOFS POF SOMO HGHH OEE EKG SF HERO HseGoHG Het ro ates HeeOteonenoceeeteceaatediong | 
[ i 
i 
] 
CG aren eal ase liecra erucer os/en onal orare: SUG WIN Cerone wie ne Bre elivanacon WO: 
1 I | 
SPSKCOOF OGRA PS SCH SG HE TVOORHHETF EAE GHFGFFVO TC CTE Rel HHO DE PHO HO KETHHeHeBeOEOLe 1 2 
® 25 AFNS3FNS(K) ° 1 
PUMP SOSH OFOSASCGHH OH TOO TAO FHTAFOO HEHEHE H HRC OH HOKE FO deo RO HeoHeHHOHRaHEBDG I 
1 H | 
I J i 
1 I 
SPSCHR SHS HHH OHHHSEHH OE LORS HOHH DE GHOECOHHBFHAP EH HOHeHHO HERE EH EHHEHHHHeRetenve 1 
. IF (APNS,GT.F1S) GO TO 30 Pecccreleceoee sO 
BOSSHOHF HS HHFFSHHSHHSCHSOPAOHSH HEP HRHGHFHHOT GON SEEGERS HH HRGEGESHTM EMERG aTUe ] : 
I a 
1 I ! 
I I 1 
SOS PSHCHOHHSSHHTHOSTET OH FTHSSOTHOH HED H EH SHR EGOH HREM EHETHeGoHoeHOeTEGEKEGEtaede ] ] | 
® 424e1 e I 1 i 
POST HFCOFSHSXPHHFSH SHO HMH OH HSHF SOHO HOD HUH H HH HKU ET HHH HH ARO OHeOHREoeHeRetoese I I 
I I I 
I I H | 
[ ] \ 
SPSOCH APS HHHOHSEASES EH SHTHHRHFH FP ede HOO HH HUSH NAHE Peet Honea neesHerseeaatoenoe I | ‘ 
° GO TO 25 Meee DA I 
I H 
] if 
1 
1 
I 
! 
I 
I 
I 
I 


~ cna aad lili caesar abate ic si ell aig ee Ee NE CET eee ee 


SOSMS STH PSSM SATOH H HS ONHHORHSHEHERAHOE SOHO HOD SHEE SEHOOETEETDEHEEESHE OO UEC OSHS 
. CALL FILTERCFOS,F RWS, AFNS,YNS) me 
> ARGPNS =(PNS(K)®YNS) ee? ry 
° AINPNS = AINPNS*ARGPNS@( AFNS-FNAS) ° 
» FNASZaFNS ° 
ry “-4e1 ° 
PROCS P A OMHHSREHSHH OHO HHT HKReSHRA BOG AEH HOHE H Hed SC Sree HeFeHoecrFeeedereneeeeeeta 


J 
! 
PESTS PO POHOMAMH POTS ATOPOPSHO TOOT HET IHO TOOTH SOR TORROHO OHO TEOHEE TORO ROHEETE 
. 59 TO 25 Pre veee 


PPS F BSP OSHSeBHOKPSE FH HHT HSHHKEOeHAHOHEULOKRH EOL aces oeHReHoveeceseevecegeaageatna 


Oe oe we we oe ws gs os os oe 


me eee ee oe we nes ee es ee 


DG camt ai si navatia eaten are) olacnial o-@ cha) shales’ goa arecmie ca eliare siavoke ahaa emi cleiere 


SPAT OMG SHFSSFOKGHHGe OF eHFeHSSeweeteeceoFFIet asi. ecseseselSSsesseKeessGOeseevesrde 
® 35) CONTINGE ° 
e XS 8 1,0 ¢ AINPXS/SQRT( 0, 002eATNPNSeB2sS ) ° 
® 37 AINPXESO. ° 
» Kz e q 
° FYAESFQF ° 4 
PROP HOSSCHERSFSOHSOHTHOAKHAOHHSOHKRHHHHAHHAOSFL oH wHE TSH HeFHSHKEHeeEH HT eee HBEeoe 4 
! 
! 
1 


CEE OUI RR CE TT WL Ra Re PO 
] 
SP@CSseeFsGeosF Gossow oss eseevvesegeaveeroeroeHeraceveveleeHsenneeeeevenseeteeve 
° 40 AFXESFKXE(K) ry 
PROMSGCS RF ASH SSGeeeee Ot oco*FFegeeeseaeHveFri arc asreceeseaseseesensrcveseveeseeeestea 


! 


SPSL HSCF SSHSSHFOSHHSSSHP HS FSH SHSSH RSH VOFCTHeL FHtrerceneaeseeeseeseeeeeecenseaeecvea 


1 

1 

| 

I 

| 

| | 

1 | 

CPS FSHSHSHHPeSBHHE HHT SOHMSPHHSHRHeHHF AHHH HFHHRTCFoH st oases FeGovaotcseevuseecsesteasedcve 1 
° IF CAFXE.GT.FIE) GO TO 45 HicgaeelagaeaenG 
SPSlCHF SS HSHSSHMHHHo eC HOF eKESeeeoFevown Hr Daerah recseeesGsovensaeesesetensegeeaian | i 

| ] 
! 1 1 
J if I 
SHSFS BOM SHSSSTSSSH HHH HSOHSHSHTHESHORBEH HHL EOC EHD SECM EHOKROGHEGCEHERCHFORORRFEELE I I 
° Kr4e1 Y 1 l 
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COME O CHOOSE TT OC OH ORHK TOPTOSHHOHE HER OTH OOH OTE HORE HHRORECOOHOCHEOROH REDS I 
° 45 IF CAFXE.GT,F2E) GO TO 50 SRA sg he wlinigs van 
CORTOOOO CE EROOEHECEO OEE EOOESOOEO OSH H EOE HEHE REEOOODEHOOEEEOHOEREO EOE REOEE 1 l 
1 1 1 
I 1 1 
! 1 l 
POOP POOOGOSSO ROMEO TOO EM ORO OOOO REF OTFOOO HHT HESOOHOHOOORREHEHTEROODERELE 1 | 
° AINPXE = AINPXF @ PTE(KIOFIL=VA( AFXF Doc AFXE = FXAE ) e 1 1 
° FKAE faFXe e I I 
e q2€e1 * | ] 
SOOT M TOO TSOHO SOOTHE TTF HHOSS OOOOH EDETESOH ED ORETDHEOPEHERREOCOHOEE RO RECOREA | 1 
I 1 I 
1 1 i] 
1 | ! 
SPSKCSFFCFSHSSHSSSSHHSHCFCS HF OSHS SFSSTeeHResF eer Her eseasesesesSseseeeseeeesevreaeeegeeana | 1 
° SO TO 40 ®ee eee OD i 
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° 50 AINPNE = 0, ry 
. “el e 
° FNAESFYE e 
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SCOSSOCSO SERCH Ete SH Ha SHOPS ee Heo bs sce st seeeserteteereseeSCtCececet tis 
e 55> AFNESFNE(K) e 
POSLHCSROHHSSMASTESE LOFEGHRSORAAGHA EH EH Gat ees HH SEEETOREGGaseeHeetanwseetoenses 
! 
] 
SRSCEHOCAHFAFLS SESH OHO HSH HHERe ADO EH GeoS oer asAaseHFeeSesenresetetacsesegneig 
e IF (AFNE.GT.F1F) GO TO 60 e 
SOSH HP ROSSOOeHH OOH ao oe CORSO O sets teesrasrotacseesttesegoeeseestaservaetatis 
I 
! 
COMFRFTSOHRASHHHOHSTOKGE OC oH oMEReeeFeset Heer eer As rac oNste ETC agesaneeeeseceneveorgn 
° Kz=4eol * 
PSSFHRASFPHHSHSHSSHSHSE SE FEF EP MOC AGHF ec ESSE Si HSHFSCHscHSosetencaeseeeseaerHenGsetocis 
J 
Soe r oor so sessengceonre SHORE HHOHRHEHAOOSTU Eo oe THE Heese HeseesecHeeteosesHe rig 
° 60 TO $5 = 
ORF OCH HR OFHSPSHSIAVHE Seo P ESSERE HReSHSGGERO SST SESHOSHEKEBSEHREEEECESC eC EH acig 
cece eer ee eer ee See ee ee eo a ee ro ae eae 
I 
PUSFC RSH HEHSRSHET Sed Seer ECHGAsFOf eG Hoe eh eer See Hose FFeGeeessreseseceseaeGsoestiin 
® 60 IF (AFNE.G1.F2F) GO TO 65 ° 
RESCH SKS OHSS HP HAGE HOES SP OKRHSHR HD HE He Gone EST SeHHSHREHEH Heese Hesetcsendeeooais 
1 
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° CALL FILTER (FOE,FRWE,AFNE,YNE) * 
2 ARGPNE®S(PNE(K) 2 YNE) @82 ‘ 
° AINPNESATNE Ne + ARGPNee (APNE mp AZ) 2 
* FNAESAPNE ry 
° K2Kel ° 
SSSR SH SASHA Pe PES eC OLE FEH HS HH SHS aHSL Geese eee Hesse eHeaeeecCerereesseeaniua 
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° 30 TO 55 
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e 65 CONTINUE . 
° XE £ 1,0 + AINPXE/SORT( 0, 002eAINPNESB2E ) ® 
SOHN SEER Pe HFESeGotroo lr HHeSReHesaegt one eerasIGe SCaeelsegooncseeseaescecast@outatia 
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POHMOHKOOHHHHRHHAHAEEH POT HHMASH HOGA HH eo TRO hae ae OAH OHHOCKOKaEMOeOHUHEMoatanun 
el{NV3 INVERSE REARING RIDER r) 
r) SUBROUTINE [NVRRI a 
® COMMON /LARELZ RI,RCJ,SS1,5E1,H51,HE1,PXS(128),PXE(128),PYS(128),Pe 
® 1Y¥6 (428),P25(12R) »P7E (128) + VXS(129),VYS(128).VXE(128)-VYE(128).NSI.-® 
° QNET,N,RETAS, RETA PEL TAS + DELTAS, 32,PNS(5) PpE(3) -PRKILL (128) ,PPATH(e 
® $128) PEVADFE (128), DIF TI, RANGE (128).STATD,STATE+PGS(5),PKDS(5),P0S(5e 
° 4),7>18(6),PGE(%) ,POE (C3), PIE (3),CLOH, FVPH,WRANGE,BPS,BPE,PHIE,PHIS, Ae 
a 5LSUBE+ALSURS + STNPSFaSTNPEV+M=COeNPCO,BSP,BEP»NReo Ke» EDEPTH»SDEPTH RC# 
e 6,FO0S,FRWS,F1S,PTS(128),FXS(178),2°NS(128),FNS(128),F0E,FBSE,FIE,F 2Eo 
* Dob PS ePTFE CL2R) oF XE (128) -PNE CL 2B) oF NE (128) XE eo XS*SUMKIL »SUMEVA-PRE + Pe 
* 
* 
C) 


BRK, PE(3),ALPXN, ALPYN,NSMAX,NEMAX ° 

VXECN=4 DESk Ie AL PXN « 

VYE(N=1)=SF LOA PYN ® 
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PORE OOOH SHEET H OHHH HOOK OHA EAEHOO HAH HTT ORC OHH AHHH HOBO ReR FASO eeZeeeseren” 
elLaye Rend SUAROUTINE LAYERS 
ats. ayreoo SUMROUTINE FOR LAYE? CONSTANTS 
SU HROUTINE 
s LAYERS 
s ( MAXt ay) 


Ce tt ee tt eee ee eee ee eee ee ee 
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THES COMPUTES THE LaytR CONSTANTS 
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SOPHO HMEHE HT COP EMOME ROO MORE HK TEAK OAT OH OH RESCH HRE CHAO ECTE ROH EHe 


COMMON 
/ LCONST /¢ 
NUL APO, 
NDEPROT, 
CONSGOCL2A) 
CONSG1 (128) 
CONSGACL2A) 
CONSyOC1 20) 
De) TAZ C128) 
DER YNCL 28) 
SLE ICL2B) 
SPpKYONC, 2a) 


e 
CONSGOC C0 CONSTANT AS SOMPUTED BY LAYERS ROUTINE (SECee2/e 
CONSGLE G1 CONSTANT AS 7OMPUTED BY LAYERS ROUTINE (SEC@e2/e 
CONSG2¢ (2 CONSTANT AS COMP JTeD BY LAYERS ROUTINE (Ke 
CONSyOC v0 CONSTANT AS TOMPUTED BY LAYERS ROUTINE C(SEC/Ke 
DEL Taze DEPTH CIN K-¥D) OF LAYER e 
DEPKYDE DEPTH CIN K=YD) 19 TO? OF (AYER FROM OCEAN SURFACE . 
JUMP TE CONTROL PARAMET OR FIR RECALCULATING A (AYER CONSTANT © 
MAXLAY MAXTMUM NUMBER OF UC AYERS ALLOWED INCLUDING ADDED PotNe 
NSTART CONTROL PARAMETER FOR START OF LOOP . 
NULAPO NUMMER QF LAYERS OL US ONE . 
NUMLAY NUMBER OF LAYERS . 
Ran . 
SspoKyd¢ SPEED OF SOUND 2ROPAGATION CIN K*YD/SEC) e 
SLOPFUC ) SLOPE IN LavER ('N SEc@easK-ypee3s ) e 
sar . 
x] ° 
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SOSH OOHEOHAEHOHHHOH HOH EH HOME HHOEDEDE EAT HH HAE COOH O COROT OHH OH HHHEHOH GEOR AE EE 
° CONSVOCT) & LL OZSPDKYDC LI ZSPOKYDCT) 
° CONSGofT) & H-0 
OOOOH THOEOOORHHHHHH HE UETTHOHHE HOMO AHH FEO RHOCOHEHOCHMEREHHOHOHEEHOHOH BERR AP AD: 
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| 
POSE HOE MHDAEMHHOHE HH SOHO PHHLOHOHHAHHAHE CHAO AHHH HO RTOCHHE HO TEHOEH HEHEHE BH EET S 
® 109 CONTINUE . 
SERCH TSO ROMO HO HEOE DE HOH OUMOEHOOHARHHE TART HOH HAHHAOREREEHEHEEHHOHH DOERR OHSS 
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OPOTEHOMODOOOHEOHOEOK EOE LAHHEHMATHAHHATEOHHOHN HE OHHH EE HOOKAH AHHOOOHOEBRHOEHEES 
° NEPROT = DEPRYN (NUL APO) . 
° MAXLAY © MAXQ( NULAPO # 39, “MAXLAY ) e 
OHO OOH OOOOH OE EHO EEN EEF OOOAHEHHHKO OHH SHOOK HHT MOTORS HHRHOHATHHOHEOHEOREBOKHO 
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eeevaeeee seer eoveens CROOK HEHEH FOO HEEAHOK EHF EOHOH HEHEHE RRHEHEEHEERBOHHABEHDE 
e Do 200 . 
. 1 1 © NULAPO,MAX( AY e 
CPOE OTEODOHEMEMREHE EEO OHMS EHEOAHEHHOEHU HOKU HOHFHORAARREHEEOEHEH EERE HES 
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COOKER EOE MOORE OEO HK EEE OO MOEA OHH HOE HOKOHEHOHOMOHEOEOHHRHOEHEEOOHLE SHORE ORNS 
° CONSGO( 1) = 0,0 . 
CMON E DEMO MOMEO OOOH HOE OTAAOHEHOOHOAHE HE HEH HOHEHOHHAHEHROOHDOHAHHSOHR ERO H ENS 
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® 200 CONTINUE . 
SOOO HO OOOOH HOHDAHO HOE OHOEHHOEHEHEEEKEHHHOHHHOHHOHHEOCH HL SEEHHHHEEREEHHE ES 
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PPOCH HOSE MAOH HHOGO HHO HOSMH RAAF RETO FFHTF EST AASAEHHHAE EERE EAHHEE OLR eeeeer ae 
e NEL yAZCV) = DEPKYD(C2) - DERPKYDCL) ry 
e SLIPFICH) = © CONSVOO2) - CONSVOCL) D/DELTAZ(L) ° 
° NUM AY 2 NL AM) = 4 # 
e tr & & . 
. 1 2 2 . 
“tes PE MRAFO STOO SH TOPE AOE ETRM AOE FHAHP TEC OMDFOHEMRO DOE OHOHMO ORO LEER EYS 
PORTO PT AH MEMEO HOSE HME OHTA ROOMEH TODO OORT OTUPEROORR ERED OED EUHOUH ODO EE SEoEe 
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SOC ROBO BAATE Ree OS PPOASOPOMAOFO TET OEOD AOOTHDROHO DPD IETEREOROM OREO HN ES 
a £2 TONTINGE e 
’ fd S78 ° 
® Zt 8 SLOPES CI) eS! OPEUC) . 
2 t @ Ks e 
2 |) ae an ee oe e 
e: DETERMINE TE THIS 1S NORMAL UN IR END POINTS . 
POSCPO SMP SSSHO STH STO TOTP O MH ROSHHAAH EE TE RAAF SHSEHH HEME MRE DD VES TO SHER EHDe 
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POS SHEP PEPHAHSSAAOHMH HG OFHHAPISSHR OH HHH TSE FS BHT FAHHOHSE KER EEHERHLeSCHOSEeeHis 
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° e 20, 120, 240 a 
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SEMPRE TTFOPHFWMAFOE SH HTS TT FHSLOHSA FOOT T THRE SOFTER HHHHOHTCHHO KA ETEDEOHOCHET ERE G 
cy 27 CONTINUE . 
a NELTaAZCL) = DERKYDCI1) = DER KYOCT) ° 
° S, DPF UCT) = € CONSVOCI11)D- COVSVOCL) IZDELTAZCI) . 
® pUMMYL = SLOPE IC!) eSLOPEU( I) . 
a FIND Our TF yHIS Tg MAXIMUM IR MINIMUM POINT e 
2 Te ( NUMMYL .GT, O, ’ . 
° © CONSGOCT) # SIGN( (SQRTC DUYMYL 2d. CSLOPEUCTD) 9 ° 
PRO SOPORIPMSIMOTAL TAHOE POMH TOPO DAV ERE ATC AOMEPOTOMHORRR EEL ROO SHCA BEER iA 
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° ff ¢ CONSGO(2) .FQ, 0.0 ) = 
° e G2 To 30 . 
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° TF¢ CONSGO(2) .FQ, SLOPEJ(1) ? . 
a e 60 TO 110 . 
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PPOFSIOTTOOSIM FAO OHO E TE OS OHOEHER ROOD TIFNIOD BORO OREHOS OER EEREHO KOH O ERR EEDY 
« Ra = REDUCE’ 71, CONSGO(2), CONSGO(1) ) . 
PPOFOTPOOTOOOTH TOMES RAAT ALARTEASH SASH HT ERO ROTOR ROTO RR OO EOEOOHOHETO EOE OOREDS 
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. 30 CONTINUE ry 
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SFOFOP RSMO SOR ODOM OTL T  THEMOATOCOROH TUR DTOITHD ERD OED EOE ROPE DOOOOR EO OROO RUS 
. TRr¢e € .NE, NUM AY ) . 
* « GO TO 120 = 
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° » GO TO 140 ry 
Vee Cr rer ere eee eee ee Per eT Ter rrr eer ere errerrrvrriri rir rrr errr ii rir iii ir) 
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PRETO He SOSH HC ROME SE FHA HHSAH HABE TD PHP he F HO HeKeeeeeseteser eeeesseeian 
a> COMPUTE FINAL 1 OCAL SLOPE . 
ry CONSGOCNUC APCD = 2, S4e8cOPEUCI? . 
FOF eP oO eee aes eeeHeectee TRAE O AMA OALO TOMO SHH eP OF eRe ABBHeBEeFTEMe Fee eeesesae 
i 
1 
1 
POPS SORA H TRH CARAFE O AOR EEA MORE ROM MeO BeBereeraeBeesFeeeeseeerea 
Py te¢ CONSGOcT)? (E92, 0.0 Mig@as ae tsa eat 
ry e oo TO 120 ry “| 
Pee Pee Pee FeReee se Fe Ceeekaeereaaaae Pe Pee eer Feet Bzeeeagr et Oeste eueeesia j : 
1 : | 
I ; 
{ 
SPOT OR SOO SHFTSAAOOHHOe FASRFHRRH SEEKER GevresveseveFereneeteeFeeeseseeaera 
. te ¢ CONSGO¢T) .€9, SLOPEU(T) ») @revccedaarlecelee 
° » so TO 170 . { 
OOOOH ESO MO TAIHREKE TAO AIAOHROTHAGO HT FOPE DAH HRHOKOORHRERELELEOHOOCOEOD EHD i 
! 
1 
| 
PPR CHRP HAREMEOHHHK THO FTHRARAARO RAH E TTF O HOH HKaOHeSeSeBesaeeFeeeeeesesseere 
° RAM @® REDUCEC SLOPEJ( 1) 202, “ONSS0C1), CONSGOC(TY) ) . | 
PPO O TOROS ASOMEREOH HOD FOO OHHHERA HELO FAFAP REPOS HSH HE SORE EETECHFM ODO SEER OLS ul 
! 
DC a erate Wee eee ncetece eebecedeeedecede. 
! 
SFO SLE SSHOSSAHEHSOHOHRHE TOOK FLSSRAHRFOKSA DET AAO KHMER SHH HSeSReFOSCHFSSORESRBLS 
. 4) CONTINUE . 
° Sq® s SaRTC Ran Dd + ef 
a Xt os ¢ SLOPEJC 1) & SOR DZCONSGOCT) * 
er2e@ecee seer aatesaeac ree SPRPHRSFTO SE LHOTEHHM HS SHAR AB HABER OReSReeeOEHOCeEe OREO EEG 
! 
! ) 
I ] 
PPT ETOH HHASAHSSHHY HHO TOSCAHMAOHRRHOEOFMAP TO SPAR VORB ReO RE RHOHTHBOLeEBEeHLS ce | 
2 tF¢e SE CE. O10 2 Oi aa as Sew alle eed asa a Aram wie isis 9 | 
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OGiiteswmeekaeaee eee RHE CURR ate es 
t 
SPOFHO SHAME ARAHGOGH TE OOF LO HSHMHEOBOeDeDD DT RRO Be sORneeeseeeeoeeeseeereoeseonwsrea ‘ 
° 50 CONTINUE = 
i ° CONSG2¢)) = (¢ el - 1,9 dZpFLTA2CU) . 
q ° CONSGLOJ) = € SLOPEUC Jy oxtex! - CONSGOCJ) y7pElTaz(J) ° 
SPOe SPOS Re eOFBaCHOeF OOH SR eeeEOROBeeDE Pee e Pe Pe EEE SER ESE PERE RESETS EEE Re - 
I } 
PPO LSPS RTAHMOSOAHHH AOFM OSAHHORORFO HEFT HH) BOF APH FF ARBHHHR EH EAORHXRHTSAAH EDIE 
° tee CONSG2cy)? .F0, 0,0? Re eecy 2 
° « 69 TO 10 . 
PROTO DE TAO SHOHHOHH AH TOH HO SHOHEOTOHDOTOF HFEF AH ASOHHAAROH HH DHHROTOTHOSHER EDIE 
I I 
! " 
1 
H POOF OO SOO TESSO HA HTEFTOF ATES SOLOH AHO HO FHOO HT IHHSOHEHHH HTH HF HROCHHHREHAHEELS 
; ° IF¢ (CONSGO( J) «EQ, 0.0) . AND. (CONSGA(J) .6Q. 0.0) ? CTR ; 
[ * * GO 70 10 . 
| POOF OCT OHO SESEHESETHF GSO HHOSHSSOHHHSESEFHSOHHFEHHTESHOHH HHH HHRELOSH ECHR EERTe i 
1 
i} 
i : r 
' SPOOR EPSP SOSPOASOEFHHHO MF OHAHRO RHODE OTE SOPRA OHM OSHESOSH HEHE REHEH OREO REE DOS x 
} ec FIND POINT OF INFLECTION AND MAK= OROPER ADJUSTMENTS . | 9 
. A? # ( CONSGI(J) = 2, 00eCONSGD( J) eCINSG2(I) IZCONSG2(I)/ . : J 
* E ¢ 2,0#CONSGI(J) = CONSGO(J)®CONSG?CU) ? . 
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OOP O ROPE TOOT OREO VED D TF OHOR TOROS ES DIF TOF OS TERRE OOREOO SSO O ORO SHEER HRERE DD 
* Tre (a2 .LE. 0.0) OR, (A2 ,5E. DEL TAZ()) Dd Woven? 
. e 639 TO 10 . 
tee ee PPMSHSHSMO RT FOOAAF SST LA HOKHSHHHHE TO HLEHEHHSE HHH EHS 


1 


° WRITE( 6, 9000 ) . 
. W NEPKYN(J), . 
. Ww DEPKYD( I) . 
. A? @ € SLOPEJ(J) = SOR Y/CONSGOCT) . 


CPOE MOORE HOH TFET EH HE POOS FSH TSH OE FFTHOEFORHUOREHHEHSOHSEHEHUS ORR RREEHD 


| | 


eee Si ati Sal ae hea oli Sal ele ‘ath ew Sd il Se ie pst ‘filed Oeste DS ek Sal a sete’ ia pnw, pa GB Seah OS Vie ori ch ai (Ss oa pO a SA ab Soe eh Bates ak po amb inate ah ach ab Lo Sh oa ik ema me GS. Se lam ine wom om tok Does ae dain pe 


ta lS a! a ste ies hd pach eh: ss: a em! cao a ot en eel Sit -l a| o| S ea  e\ k n y ioc s  eaee pe_ad,a l mts ea es Swaps Sip es ea NET eae sd ao" skies! Ww ew Co pe 
Dah PD GA ily SA Sle i EAL. RIN Seat th RS clk ek: OOM A Dabok ae den cD la, | OER TRE a cect B ch Sot ome, re Aa Seah SP Kee tei geen Tasha aR ~deeel ae re ck“eh on ER~ S Po joan ent Soe fosk-to Wimons ee a Se pea vata cw ab cas wits ea ie 


Se ee ee On Oe at Oe Saw On OO Saw os JD ns One es os OP Oe Ot OE ome One one Oe Oe ws J ws One Os ne ow Oe J oe ww ws wes oes ee es Oe 0 ee Ot ee wes St ws es et a es ee et on oe es OS ee os es os Oe es eS Oe oe Oy ee ws ee ws Oe we wes ws es ee os ow 


a cet et ah Sa Ok Pace oo a fe aha ab ah mn Se pen pate Selene ad nd nog “et emperor eee at oe mee sae ae 


Pe a a ee ee pe ere Pee ey fee Ope po eT eT Pd Ee pn Rep opey pe amy 


ee) 


' 
q ! 
I 
SPORT OR EMSAM O RESO AEF FFASHSO RSTO SEH FO TOROS THHEHOHHOHHK ASH HLERSHEO RHEE EDLA 
7 
; 


' j 
a | ; 4 
f ; ] 
= | 
| . OPO HC RE OM ROSEMEAD DEDEDE ODO DH ORO ON IDA SOR! SACAROOROAO SSO ESOE SEDO ODRDES ES 5 
. Ir¢ a2 ,€Q, x1) Pracecebelelecale 4 { 
. e G9 TO 60 . | | 
COOP PAO AFOSHRSEH OSE UE SORE HEOHEHEOTE SU ESAHOKEHSSHESSOETETOSESE EHR EEBES ¢ | 
| | 4 
| 4 
1 . 
POSROH THOS SHSSSHHT FOTIA AORTA HOHE RETO T FG FU THT EHOHHHOSHOHR ERE DEEEE @enere : & 
° ul @ AD e 
PPADS EO MODOEMHETEL OO LDL ECOOTOOTTRO ODE FED COHORA DOO ESOR ESO RREOO DEO OEEOODODS : 
! 
! 
1 
PORT SE PAEMROMHHOOHTAETAIAAHHSHAEHOHRHGHFATDEHHTHHH TCHS SAHH HSL EREHSERESHERHEHTE 
° 1e¢ XT (GT, 0,0 ) Beensecd? 
. « 509 TO 50 ry 
CORO DTA R POOH TOAE RETOUR COO TOOE LORE TE IA DIGO TODO D OE DOBRO DOOR OO ODDO SOO RO ERNE 
i 
1 { 
PPO OT SOR TARORALOES ETE THTROORDTRRAAUT THACOTS DOOR OECORO CERO OEEOR OE OEREOD ID | 
. 60 CONTINUE . | 
SPR P RRO OOOSMEOH EMOTE TTT TVDOOO ROR TUEUITIOR OOD TOM DHE OOEO RSS OTHOCCO LOR OR ROE TY 1 
1 
! 
[ : | 
SPSS SOSSHSSTSOHHEHTTSTIFOSSHSSHHSHHHHERAFOC OHSS SSHOHHPO RH SHEESH HK ESS HEH OBL e 7 
. Te¢ NULAPO ,GE, MAXLAY ) Pr taesie oloeele vo) | 
. © Gd TO 249 . 
SPOT ROHS HSOSHRSHEOHT TF FFCHSHSSHSHH TES HOFTOTUEHTAMHTEHOCHEEH SH HHOHEHOSEEHE ODS 
1 
[ : 
a 1 
SHSKCSOTH SO SOSSHSSHHEHHSHTHESHHHHHHE HSE HEHM HHT SHTOSSH HEHEHE HSH HHHEESCOHRESSEROE ETS 
° PELTaZ¢y) © DEL TAZ(¢J)72,0 ° 
. OELTAZCI) # DELTAZCY) ° 
ry Y, @ ( DEPKYDCI) © DEPKYD(y) 272.0 ry 
° Uy # ¢ CONSVOC I) « CONSVO(U) 172.0 . 
~- SOME OSSHHHEH TOME TTT ST OHMSHSHHSTO FHS EF IFAT SFOS HHCHCHHHEHEBESESHAHHEHRSEHE REY 
I 
I 


PASTS HOHHTOTSCHSSCH FST EHSSK SH FOSSH HTT OSH HOHFEHHHSSEHSHHEHE HEHEHE EHO EETS 
° 70 CONTINUE . 
ot THIS SECTION ADDS & NEW POINT . 
e WRITE ¢ 6, 6000 ) . 
. Ww DEPKYD( J), . 
° Ww DEPKYD(I) . 
. e 
. . 
e . 
e e 


nt 
* 4 


NUMLAY = NUL APO 


] 
| 
| 
| 


NULAPO = NULAPO © 1 


- . 


“ = NULAPO - 1 
SOFTER TCS HSSHPHS SOSH HH SS SCHHSTESHSHSSHHFFFOHHFHHHHH THESES SE SSSHESHE SESE RH EEE 


eee eee 


PT ee ne ee ee ee eee ee eee er et 
ee et ae ee ee ee ee en Ys me a ee Oy ee OO ee Ot Oe as OO OY Oe PO ne dy ad tN es ae tw Oe Oe ys OO eee ee Se OO wee me te et ea Ss te ne Os es es Oat see ewe ee ee se me wees ee dt swe ews we ese oe ees wt ee oe oe 


Cn ee oe Oe Le) 
a ee eee ee Le ee 
a eee ee eee 


Ca ee ee 


0 
if 
! 
if 
if 
if 
I 
if 
if 
I 
if 
1 
i ! 
I 1 
! 1 
POSPSOHSHSHSTHHSHSHHTAGOTSHOHTHOHHHSSETH SHU SOFSSHH OHHH HSE HEHEHE SESE RE EELS 1 
1 Pecdgcvvecene cueeenet Do 300 . ! 
“ 1 . I Lo 1.K . ! 
I PPOPRFFSDOSSTHHHSTHSHOSTCALOSOHOSEHHOREHDATERE HH INSU HHOHEHOOHEOHHHOHL ORO RADEODe ! 
i 1 { . 
1 1 if 
! 1 1 
; if if [ 
if 1 ! 
I SOSOCHO TFS HHSTHSTHHHTTFTCEHHHOHETEHSOT FAH UHRTEOEHHOHREEHF OR TOHHOCCORE RAS RODS 1 
1 . Jt @ NULAPO = t e { 
- 1 cy J2eayi¢1 e 1 
é ! oy) DEeKYD(J2) = DEPKYDCJ1) ° 1 
1 ° CONSVO(J2) = CONSVO(J1) ° t 
1 ° SPDOKYD(Jy2) ® SPDKYD (Jy) ° 1 
! PODTO POOH OOOOH REED OSU ETOROHEOOR ES EFOO RT OETHES OOOOH OHEEEE OOOOH OOORDEOHOE 1 
1 if { 
if 1 if 
! ! 1 
1 POSSE HESSHHETEGORTESTSFAOHOHSOHHOHHHH TF HHCHSFOHEHSHHEH HEHEHE RHEOEHROOEHEE SE 1 
eereeteceseesceteess® 300 CONTINUE . 1 
COMP OTE MOHOOP OOOH EEL DECOHEOEOOHOOODUO TEETER TEER PERDOOOOORESEOESEH OOO REEESS i 
if 1 { 
1 1 i 
1 ! 
POCO DTFAHORHOETROHE DDT OOOOEOSOEH SODA DOD UH DUOHOPEROTCOR TOTO OO HOHORORORERIG { 
. DEPKYD¢( 1) ® v1 ry I 
. CONSVO(J) © UL . if 
. SPOKYD(I) #® 1,9/SQRTC UL ) . { 
POCTOTOOGROO ORE RO ORD DDTOHOODOOEOE ESD ETOH OHO TERED OODOOOOCEE REDE RHORODROORID 1 
1 I 
i i 
if 1 
COSTS OCHO SHEE OTRO EHDOHTOOOOSE SHES E HOO LORD ESHOOHOSRSSO SOHO HD OOEOSOROOSEREDS 1 
. tre J .€0. I) Cerrar fe Oe ee ee ee Oe re ee 
. * GO TO 250 ry 1 1 
POOSO OHO ROSES HEH EOE HOOD DORESEEE SEH EETHSEESHESEHE SOT ERO TEE HOOOEOOOSERORONS if 1 
1 { { 
[ : ia 
if { 1 
SOROS OOO OROOROEFOO ETE OOOHOEE OTHER TETE DOE HT EFEHOOOHROTE SE OHOHER ODOR ROOONS t t 
. SLOPEU(1) ® SLOPEQ(J) . ' | 
{ . At @ CONSGO(1) . if 1 
POROHOOS SHOE OEEHHHTETTFHOOHSEHHHEHOHTESSHEHUESEHHEHHEOOH AE HOOHEHGOEEEEEEHS t t 
if if 1 


IE HY 


1 
t ‘ 
SOS SPOTTER SEH OHH CEMA HSORMERH OHH ERTER SHO HSE HEHHHHHEETESEH EHO LEO HB IS 
e tee at .FQ, OD La 1,0 
. . e GO 10 270 e ! 
POO ORME O OHO RE EOE OOOMEMORROH ESI ME DED THRE OOOOH OOO ROH BORER US EOE ROEE ND 1 
! i 
! 1 
t ! 
CHOC OPPO ROPER H OECD UOAAEEHRRPA LOFTON GET OEHT OCH OO RRO TELOREHORODOREH ID ! 
. Rad © RENUCE( 71, AL, CONSGO( 1) ) ° \ 
revere rere rr rir Teeereerrr rye reer ere err eer erereerrr ist ese) I 
1 1 
Orr vercccslinencmnGeceresesehendearetennwewens +t.0 
if 
1 
if 
POPE EMAOHHTAMEH HEA EAH SRESHOAH HOO ROHR ETE OHHH HERA EEE EELS 
e@ 270 CONTINUE . 
PROPOSES RPO SS TASHA HAF CHAAR HATH SSR HRC AEH SH OROSHOHHLHOLHHHOOHES ERS AP EHS 
! 
1 
{ 
PORTO HECHT O OEE E TEE HOR TEMES OTN TORU USI RH OCR EOCRH DOH ODO LO RHEE EHTS 
. TF¢ CONSGO(J) .F0, 0.0) Ravens ch cnc fe Satie 
. e GO TO 40 . 


POOP ROOM OES EO SEM O HET DEO HOHHHOS HOH TRUER ET OO TORO VOROPOHOHECHREO SOLO EER ERLG 
1 
! 


1 
PPO SPE MSPS HSOOHHE FAO TFOORHOHHETEH DUE HOHE HRT OHH REROEHHHSRE HEAT E LORE EEE ROHS 
. Rad ® RENUCE( 714, CONSGO(U), CINSGOC(I) ) e - 
CPOP STE OMAOTASAR EET HHOH FOOT ROH OHEH EHUD ETOH EHR HEHEHE KROREHHHORHHEHEOH EHS | 
q \ 
1 1 


COM PAVIEMSMOMHOSOROMTOHE GEAR HOHE TEA DHT ORTHO OHHH OO OHOOHEHUEHOHHEHERROO REDE 


° GO TO 40 @eeneee 


OOOO TOC OOO OOOEET TIME ETI OOOH HCHO EEM EET IAHGTTERESEEOHOOOCRUTERIHE HEE E OORT 


Se ne oe se pes ee er a ss ee Oe as es as Oe Os es OS ee Oe ee ae ae a ee ee se oe ee ee Oe we a ws ee Oe ee on wn we Oe oe Oe es we we eo oe 
ee ee ee ee ne ee a eee eee 


ee ee ee ee re es ee ee ee 
ee eee 


Oakes LAW ow WOO Cee eH Be eee eee eles ge 5 ees 0 
| ! 
POOP OO ER AMESOHO TOMO SG IOOHHROHEOHO ROH ORHAN TH THHOCOEOHOO OTERO OHOOHR HOE OHE HHS 1 
. 80 CONTINUE . 1 . 
. CALL TRACER( 8 ) . ! H 
. AL # SLOPEU(U)/CONSGO(T) . l } ; 
SPOOF O ORS OHEHOHT OSTA FHDR TO AOHHHHEHAOH TOTO AHO HF OHHEHOEEHHOHEEHHOROHE ECO REOELS { ea i 
! 1 
! ! 
j 1 1 . 1 
POMOC PFO OROHROSH OOOH TON SOHO FEHESEOHHHFHOE REHM OHRAOOHOOHHSHEESEEOHO RHEE OH HG 1 Hi] 
. TFC ad .GT, 2.0) Operas fee er re i 
. x GO TO 180 . 1 i i 
POOP O ROO EE TOLD FP OO RO FEDERER IORI SDT DIOP ROEO PDO DED ORO DOOSDODOO OOS 1 1 : | 
\ 1 1 
! | 1 
I | 1 i | 
orevenee OOOO OCOD E TE COEOO OH EOH HTH EHU OO HOEEDOOOHHROOROOHORO® 1 ! 
. A2 © SLOPE J(JY/CONSGO(S) ! i | 
j COERCED OOOO OE HERO E DT DOO OOOO OOOEREH TERE ROT RE SDEROOOO OOOO EEO ROO ODOR ROLE HE 1 1 - 
; i I 1 i) 
! { { 
| 1 \ 1 “4 
; OOOO POO RO OOOO ORE THT ECOO ORO OO OER DE NERD EDERDO OOOO OOOO ROR OEOEO DORE OO LE 1 1 
' . Te¢ apSc 4,0 - a2) ,GT, 1,05-7 9» OcecseeE Delete tele betelet.t.d 
; . © G0 TO 210 I 1 I 
SOOO OOOO OOOO ODO TOES HSER OOO OORO REELED HS TORCHED OOO RHODE OREO ODO ROL O® 1 if 1 
1 1 ! 1 
1 1 ! 1 ! 
i 1 1 1 1 | 
| 1 1 1 | | 
if 1 1 1 ‘ 
PUT UUURUTUT eee ! 1 1 
| 
' TOO MANY tS | 
> TO STATEMEN 
eee peat eg Een OG; Spastlelsetulsladeteterele a tt | 
h ° * G9 TO 220 . [WR (ORC te CIR A? ie A a ee a 
PUTUTIETTTATIITIT LTTE) op aoa he Be a ae Li | 
\ Mihaly ta aoe ’ 
i ) SEY PUSS ig Ne ay Sa GR CW Na | 
i ya CS i He Ge) se) Ga iH Ge, 
PUTUTETITI TIT T I T err ii iir) Same (as lems (We) GR fe it A A: ie sk ) 
. tee a2 ,€0, 1,9) halve TTT Tat { 
e * GO 70 60 ° PET Ee wat fT oF ad 
PITUTETITI TTL Tre PY Sere Bae ate 
' |G TE GO am Ws GD Th GU Fh A Ga) WU 
! OS a PV eH as I a a P 
1 rere eee ae Taha y T 
Y COOP OHO O REO O OOO EPO HHO O OOOO HEED FOO OO TOHOH OO DOOHROO OOOO ODOC EROS ORES be oe ok ee ap a 
: . CONSGOCT) ® CONSGOCY) . | tT: (i GG ea CC et Va a i 
, CRORE OOOO ECO H OHSU ESTO HOO OOO EE OHHH HEHHTOEH HHS SHOHHOH EHO CHEE CER ORC EOE CP ee ES eee ae TA 
1 (A (a a A Ge is Jee! Ge Ge pa Ga 


TOO MAXY EX'S IN G) To STATEMENT 


! 
CROCE O ORE OME SEER CH HAMAR AREHRR EAH TERESA OHHH HSEEHOHHHOEeREROH Ee 
. ao CONTINUE ° 
e Rad ® 21 ~ CONSGUC J eCONSGNGI) . 
UROL CREPE RH OTHE H HOH MEMO REM RO REET H OME ORHOHE REHASH S HEH EHOOH LOL O CES EELS 
! 
! 
i 
SPOKES ER RHHHHHRHEHHEE HE THSHRH RH RE OHH HET H EHO OHEEHEHHOREOH ROSH HOHE HOSE EEE EETS 
° lee RAD .GF, 0,0) e 
* « GO TO 40 e 
SOS SHOR RPORR HRC TOUOK HR SHH H SEH HEHEHE EOP RAE HEHE HERES HREEHEEHEH HOLE REOEe Le 
\! 
1 
H 
CROP SOHOEOSORHT HOE TOPOS EREHHH HEHE SHH OHO EHRE ROHR EHH OHHH EHEOEH EES eEeEe tS 
CALL TRACER( 4? . 
CALL DUMP 


SB a ad a sal ok Sl ag ine a cha SA Res a a ae ST ak as eg as San ato ag aa Spa 0 Soh ce a ene fal oan fe oa a nes Mee wo seg Sw nT as, 


° 
COOP OREO R OREO REE RE EH AHH VOORO RTE OOH DHF HOOD! PORHOOHSOR EER TOTOHOLO LOCOS OES 


On. 


eheree PRPC REHEEE HOT HEROS PERE H RTO RH SEH HHEHHROHHOHE SETHE EE EE EEE EEES 
® 119 CONTINUE . 
° CONSGOCY) & CONSGO(2) . 
POST AE SRO HEHESHESH EH OATH FOROS EHHOH ERE HT OREO HREHSHOHHHEHDESEHEHHHESEEtEtee 

1 

1 

t 
SOSCSRRRSHSHHO SHEET E LATO SOS SEHHH HOH EEFMOHFESHEHELEHHHEHHASLEHEHHE REE EE EEE 
° GO TO 30 . 


PROP OHOPOPRHOHO OLE EEOFAT FORTHE HEHEHE SOHO OO EROEH HEHEHE HEHEROOTOTESHRDE SERIE 


Fe ee er a ve Ae een Ne ee gree pee rs ee i ep oe nye Srey ay ee 
Gy ae aes aa wn sas ad a es pss ee es pen es eg em ee ios 


COSCO EMR POH HHO HR EE FO SF OOHSHEOSEHEH HE THH HORT SHSHTSEHEHOHEHELEHEHHOe SER EEE FS 
ec: . 
POST PO SSPOSP ORES OAKHAM HSSOHHHOHDHHEHHOHEAHHHEHEHEH HS ESEHOHHH HEHE OEEEEE 
! 
! 
POSES TE ROHOHP HEHEHE DEH SOHO RRO SHOH HEHEHE HEFHHOEHHEOHE ETOH HEEHOEeDEeEELS 
® 180 CONTINUE . 
. Rad REDUCE( 71, CONSGO(1), CONSGO(U) ) . 
ererteesene e SSCP OEE HHS SHAH S SH HH TH HH EHP EHH HEHOHEHEHEEHEHHH ORO EESEEDE 
1 


Cee a ee a 


! 
Pac PPR PORES ROSSER E ERR SERS ER ERE ERE EEE RE EERE EASA 
1%) CONTINUE 
Le ae | 


. e 
. . 
. ted ° 
. e 
. . 
’ ° 


. eae adah 
21 & SLOPEIC JD eSt OPE ICU) 
POPC PORES REE HF OST FT FHS HEHEHE EHTHHHHEHOHCHHHEEHHHHHELEHEHES EASE HHEES 
! 


Cl ee ee ey 


! 
COACH EPO OOOOP RHEE OHF ORTHO HRA EORHEEEDEP REFER VASOTOOROOOOOOEEEOORO OES ERE EELS 
* 129 CONTINUE * 
. Rad ® 71 - CONSGO( UY) eCONSGO(T) e 
POOH O OHO POSHE REE REM OO THO EEE OEHO HEH HEDHOHEOHOPRECOOHOOTEEEEHOEHDODH ORE HEDD 

I 

t 

! 
SOOHSO OOOH OOSHO HOHE EHF TORRE EH EHOHODOHEHEESHOOESEOHOOHSH OHHH CHHOROEHH EDS 
Tec RAD LT. 0.0) e 
* GO TO 80 . 
PO CPROMORRECOH OOM THO OE SOOO HHO ORH EEO EETOOOEEOOOOOERESOEOOEOO REDE HEEDS 

! 
EUS UEEE Ge GUS oe cUCA Ch UE a 
POOP CU OHO OE OPO RHODE THEO TE OEDOEDODOR DEERE DET OHO SOO OOOEOOHOHOERFOR OER OO ELD 
* 130 CONTINUE . 
ROOT HOOP CORO OHO HH EE UD TOHOTE EEO HE ODE DOE HEE ORO OHOOOO DE EEORO ORCC ROR ODOOLD 

1 

! 

! 
POOP OOO ROO OPER EESE DUET EO EEEEEOE HOE H OT EET OH TOOOROOOE HEROD EOEEOOHO OT EOH OTS 
. IF ¢ CONSGOC(I) .NE. 0.0) ® 
. * G9 10 40 E 
POOH TOTO OPES OOOOH HDT H OOOH EEE SEETHER EER EHOSE TORRE OT OO RHEO OOOO OO CRORE HD 

1 

1 

1 
POOH EER ERODED DDE D OP SOM EH OOD OREO DED DEH OOP POPS SOOO PSO OSO ODEO OOOEE ODO DER EHTS 
® 140 CONTINUE . 
. WRITE (¢ 6, 10000 ) ° 
. Ww DEPKYN(I) . 
POOPED ORE COO MOOSE OOH EDT HOHE EES OO ROSE HEED ORHOHEDESOROEDEEOOOOOEOR DOT EOORHD 


on 


Meron esee rar 


Bae 
- ’ 


EE wees 


ae 


! 
! 
| 
! 
! 
! 
! 
! 
1 
1 
! 
1 
1 
| 
' 
! 
1 
! 
! 
1 
1 
! 
! 
| 
| 
1 
! 
1 
1 
! 
! 
! 
i 
1 
1 
1 
1 
! 
! 
! 
1 
1 
1 
1 
1 
if 
1 
1 
| 
1 
1 
1 
! 
1 
! 
i 
! 
1 
1 
! 
1 
1 
| 
1 
| 
1 
! 
t 
1 
1 
0 


em = - Fé 


SSO at Be tO eS fan i id Se ne ep ea a Gb Sb OO and te ae nw es 8 ime hae ha ne aw Oat Oat SD as Os ed eS BS Oe 6S ee OS OO Os Os he Oe we at eS ns ies ges eS Oe 0 OS Oe os aes Se ne Oe Gas oe Oe ew 0 Ss os Oe Oh ow i Oe 
ed) 


ee et ee me ee es ee ee a ee et ee ee es ee en ee ee ee te ee ee ete ee ee es ee ee ee ee ee ee ee ee ee es 
ed ee 


Se Re ae ale ae aN eS a lS Jia Oe pw tb Hs EO tie et ad a se de oO 


a mad OS ae a a ot a ese te ee 


Paiidiiaheils sesh uadlosssasnatontindhhedoul ncthek usemateehinse*Ah aan canadien, eae 


* 
| 
1 { 
1 I i 
if ] ae | 
1 1 | 
CPSOPSORP SOHO HALOH KEES OHHR GCOS AHECRTHOTHOHOSLHSSOHHERO SO HREROHHTORHOES ELE 1 
° tre SLOPEV( I) .EQ, 0.0 ? Pred Rb ir 1 , 
e ® Gd TO 230 . 1 | & 
POSH SETH OHSHSSH SETH SETS SHSHEHHHSEH DEFT OHOHF AHH LEH SEHH HEHEHE THO ORDER OLE if j 
1 1 . 
t 1 
1 I ‘ 
SPOOR TAPP ORES SOROS AGO T HHO OHOVO DEED TIE OTORCHDOOTHOOOOHE SOTHO RORHESDESED26 1 
> A2 ® SLOPEU( J) /CONSGO( YU) e 1 
SHST ESTA SSSSHSHHESOHAOHMSHSHSHSHFESeSHAFFHKL ARH SHES H SEEKS HHSERESHESHeeAEFEsoe 1 a q 
1 i | 
! 1 ] 
t i - | 
SPARS OSESASHHS SESH SHHK SOSH EHSH SER H SFO HTH SFT SSS LSSEEHHHS EH EREHEME SHEEP EES 1 | 
ry YF¢ a2 .GT, 1,0 ) Pe cesselkslelersleO 


. ® GO TO 60 ° 


SPSOO STOR PASSA ELOOH ET CESSES OHRESOOLHHLOH TOPO TEOHHOHREHSTEGHHOC HSE SEREEDE 


! 
! 
PSC SHCHOHSSSHSLSHSEHOHSH SF TL SSHSAESHSSSHHSOF SF OKREHSHHHHOHEHHHESeHRESHEEHeH Rate e 
° 1F¢ a2 .FQ. 1,0) Preeces 
. e® GO TO 260 . 
PHSSCHOO SSCS SHH HSM ORTH SHHHSSHHSSELSOHHTHOSFSCHRSSERHHSH ESR E EROS EOCHEeEEeEEIO 
{ 
1 
! 
CHSSCHOASEHSSSSHSSHSSSHSHOSHOTFLORSSSHEH SSH HP TTFOHHSHHSHASS SSH HESEEESHOHELEEEE ESSE 
° Ay ® 1.0 - 0,25/¢( a2 - 0.5) ry 
SPSTSOSS OSHS SESHOHH LAH SHAH SHHHHOKRAS HATA TSOSHHOHSCHCeSHHHHHHReESEHEEEHORee RED 
1 
t 
! 
SPST SOS SFSHSSHS HSS OHA OHM SHPSSS TASH HEH HOF HAF HOH ASeeSeeFeHeeertenaeesseeesetanus 
e TF¢ CAT WLE. 0.0) .OR, CAL .3E. 1.0) ? Ranears 
2 e 69 TO 150 . 
SPST SOPH TFHSSHSSSSOF HHH LHOKHSRHOHHSTEG EF FOSS SHH SFHoKTeeeSHFHOHSeSeESEHBeeeeteere 
1 
t 
! 
SRS SOHSSOHAHHHEHEOSHO SSL SHSHSHHOSHOSHEDOFTHHEHOSHHSHHSHESH HEE EHEC EOH AGERE EBLE 
WRITE( 6, 9000 ? 
w DEPKYD( J), 
w DEPKYD(T) 
Ay # CONSVO(1) ~ CONSVO(U) 
OZVEW & 2. 54at/cCONSGO(Y) = 1, 5epelTaz(J) 
U1 8 CONSVO(J) * CONSGO(J)eD72NEW 
Y1 = DEPKYN(J) * D2NEW 


e e 
° . 
. « 
° e 
e e 
- e 
ae . 
. CONSGOCI) © CONSGOCY) . 
. . 
. e 
. e 
. e 
. e 
. e 
. e 
e e 


cONSGI(J) # 0.0 
CONSG2()) & 0.0 
SLOPEUCI1) = SLOPEUCT) 
SLOPEUly) # oreeary: 


DELTAZ(1) © DEL TAZ(Y) - DZNEW 
OFLTAZ(J) & DZNEW 
eaae er puatudedenvuccndwaeevkabcdeciePnuduechacocacbeewecuvcaelseieivis 
) 
L] 


OOOO E FOOSE HEHE TOOOEO DTU SOSOS ELE HOREHE DEO TTSCOO OOOO SOOO ROEDERER OEEEOT EELS 
° GO TO 70 Cerevee 


POSE TASH EHEFO TESTO FOOT OOSHSOHHHHS HDA FHNHO SOSH SOEFEE CRETE REECE EHEEHEH OBI G 


Pe ae ee a ee ae eT ee ee ne Pe eet ee 


me me ee ee et ee et es ns ee ee ee ee me ee ee et es ae ne ne Se et ee et ee es ee tee ek ee se ee ee ee ee ee ew ee ee de eee es Oe Os es Oe Oe es we os we Oe ee ee 


ee ee ee ee ee ee et ee es mr ee et es ee ee ees te es es a me es ee ee se ts ws a ed ee ee ee es es ed es ms es et es se et ee es Oe ee we ey ws ss 
De ee ee ee ee as a a ne te ee me ne et ee ee nce ss ee ee ee ee ee ss ee ee ee ae ee ae ee ee ee ee 


ee ee ee ee ee ee ee 
ee ee ee me et ee a tt et et te ae tt et tt et ee ee ae et te Oe es at st te et td td ee ee ee et es ee ee te et td et ee ee ee ee ee ee ee ee ee 


Vl Pee eee ee ee eee ee 


I 


SOROS OREO EHEH SHO OHH OTH FOSHHHE HOSES HHFHHTHOTES HS OCHSHOHER ETOH HROCHROREREETS 


es 


* 259 CONTINUE * } 
. SLOPEUCT) © (€ CONSVOCI1) = CINSVOC(IT) D/DELTAZ(I) * } 
e fet * ai 
° Iy e le e 
° CONSGOTI) © 0.0 * 
. DELTAZ¢1T) © DEPKYD(I1) = DEP<YD(T) . 
COSTS THOSHSS SEH OOE SET OSHSEHEEHEETHFFHFFSSHHP SOLO HHOSS SEDO HHAHEHRH ERE BEDS 
1 
OCs crvcreeeserererveeseceseeeascetccnsetevesbebebevely - 
1 


SOSFETOHSHSSESSHHSSHSESEHOSSSSEHESSEEHOOSHOHSHESHETESEHEHEH SHE HEEHEHE ESE H ROSS 
* 150 CONTINUE 

. M1 ® CONSGO(J)/2.0/SLOPEUCU) . 
. CONSGI(U) © € SLOPEU(JDeXTexT = CONSGO(U) D/DELTAZ(U) . 
. CONSG2(J) © ¢ XI = 4.0 )/petraz(J) . 
. a2 © CONSGN( J) @CONSG2( 4) ° 
° AS @ CONSGH(J) - A2 e 
. A? @ ¢ AS = AZ Y/CONSG2(4)7¢ CINSGI(J) @¢ AS) * 
° . 


SSCS CSHSESSESSHSEHSHEHEFFSSSSSHESESESFEHSHSSSHESEEHESEHES HE HESHSEH ESSEC EDS 


ee ee ee ee ee te et es a es et a tt ee ee ee es et te Ee et tt ts ss te ee et es nt tS ee et es et et et et ts es te ty te et et ns we ey ee et ee we es 
a a a es es en ee ee es ee 

me ee ee ee ee ee ee ee ee a ee eee ew ee 
ee ee eee eee ere 
A St at Bids EG a had Geb: Si a ad Shad a Sil S| Sew ed a OA GAR hk Sah aN GS Ga Sw aa ES, eek Saat, Se Bk ew es do ome Oa rd nk Sat Bn SW wa ‘oad jens Be On oe ‘Ont 0d (nad te 'aen Bn ke wilh O tacn 'enmn ww GW, Gers. ot fant (Sc eeck. Saw 8 od oud an ben ipa “Ses lnm ss ben ids wee gaet bi GES So os 
ee ee ee a ee a ce at Oe ee oe ew es Oe Oe ee SO ee ee as ee ne es ne ene ew ne Ot SS Oe Oe Os Ot SO Oy sk ws Oe my ae ke ess ee es ee ee es ee Oe me ne tw et ee Oe ee Oe se en ee ee ws ey ee ee oe 


ee ee ee et te te et ts es ae ee et et te es et te ee et me ys et ee ee ee et st oe 


es ORG ISNT) 


se 


i 
: 
i 
i 
| 
I 
[ 


! 
ee POPES LEROAOHH HHT EC HOHRHHAOHATEHSRFLAOAH SOF HSH AOReOHESS EOF eTCHOCHERESeReHe se 
° Fe (a2 WULF, 0.0) ,OR, (a2 TE. DEL TAZ(J)) D ° 
® » G2 TO 10 . 


SPREE RE SORRS EHS OK SRO E  PORODOSO REET EROSE ROT HOSE ROOHSOCE SH REOOH THOSE REED 


SPOT RROOOPOHTOC LATHE LAH SHMOOETEO FOLIO EDF AA POHO ROSH SO REDO COOEO OOF ESOR EG 


. TALL TRACER, 2 ) ry 
° CALL DUMP . 
e? e 


POCO PHOS SME SOAHTEH SIH GOHHTFHROSHATO TH DOK TTT SVCORSSEHEHE SD OOCOHEOCOCH ERROR Oe 


Dbwieis-ciss Pe ee ee er ee a 


1 
COMES OAH ROSROHTOSE HE SHESPOMOHOSHATHFFON OA HH SPECHHHHHH RRO THOSHOUO RE EEOHE DD 
e 169 CONTINUE . 
° XI} a € SLOPEUCI) - SOR D/CONSGN(I) ° 


SPRCEDETORSRHOHSHH EOE SESH HOS RARE DDH URL SOHIFSSHRET CH CECOOREO EOE REEUDS 


SPOPSHHSOSSSSOHE SSH SHH HROTOFPOHHSHSSHHSHOH HEF OHK Oo SF SOCHKEFEHHHReECESHHOSeLEBEEce 
° IFC ME .GT, 0,0 » ° 
° e G9 To 50 ° 
PESOS SSESOHSSHOAHHSSOHOTOVHTHHSHSHSSSHHHVOHO HS HSHHTE HEHEHE HE TEOHHHOCSOLEBBELE 

! 

! 

I 


CROC POE PIPOSOHFH HCOOH STOPS POOSHHOSAD TD OCHME RS THOHTHHSOHO SEH OOPOEOOHOODEEEE DD 


° CALL TRACER( 1 ) . 

e call fume a 

es . 

SPSS PESSOSHSHSHOHSHHH HOT OSHHSSHEHHOSHSYETONAH GOT HPSOHCHSOHSS HEH DECHEHCE SE REE ROS 
I 


0 Se nC i a re ee 


POMT FOOSE OPOSSOOTH HHS SSO HSHOSSCOSO SEHD TIHO TST SPOOR PSHHHTORCHHHCEO SEHR READE 


© 179 CONTINUE e 
e CONSGO(T¢1) = CONSGO(1) . 
. RAD 2 0.0 # 


POMPE RGSS SSOHHTHOOOF HOMO TSSFSHOHHHHTDOTOHTSHMEPSHOOOPHSHE EO EOCHOO IES RO OHO DE 
i 
! 
if 
COOL ODT CRP OHTOMOHE TE DOTA HOFHSSS SOPHO OSCTOV SC OCOSSEHHHHTOOHEREHH RO ZOO RECS 
. 69 TO 130 . 


SPSS CCHHTHOTSHE HSE TOTHOHSSEHHOHHT HOOT FHT OPORPHOHOHHHH EHH AHEHHHEDHOHRREHEIE 


COSCO OHO OOM THSAHOOE FOOT FOMOHTSO REE O TOO ET OD HE ROOSHPORE RH CHHREOOH RED ORHEES 
et o 
POC R DOCS ORPOROHSOOK TOOT OH ROHS HO EHE OSU DOO ST TECHTSODAPO SOR DEHOHRER LOR ODOR SY 


Qe crvcv pe eernerrrerreesterseetreeeens 


1 
POPP OOOO OH HOSE POROOT POO COSOR OREO OSEO TONDO VECO POPROPSES ROR EORETOHDEREREEETE 
® 210 CONTINUE . 
e RaD ® REDUCE( 71, CONSGO(J), CONSGO(I) ? . 
OOSLOODETOOOH OP OO REET OE OE SEP ESOSOOR ESO EOTOSDOPHDOOESOSSOSOOPEP ET EROORERDDG 

1 

1 


POTEET OCOST OSE DOOD OTS OOCOH OOOO DE TOALOA TORO OHEOOPOS EO ESOOR ODEO DOR ED ES 
* GO TO 90 . 


SOSLSSHHOAEREHPODOS ATCO CHSSHAOSESSO OTOH POOF ECHCHHEEO RSE SHETOHEOHECEREHEDE 


SOOO SOOO SSOTOHOOHO OHH OTOO ERS OPOO REED OTOPESSGH COC RORPERCERTEEOREEHEE EER EEDD 
e> \ . 
SOOT TOE OOOOOCOO SOE OTE SOAS OCHOREEDOOTIO OOF EUOTOASERORERSREEEOSEROESOEENE 
I 
I 


COSCO TOSHOHOHH TORTS O HOO OCSOSSOSE SESE SS IAHH OOO SHETOHEHHOS OS EETOLEEHORS EES EESS 


® 220 CONTINUE . 

e CONSGOC J) © CONSGOC]T) . 

SOSFTOTSSSSSSES SESS EOTESHSOHSHHSHE HO OCEEOC SHH SSSESSOSESSSOREHEESEHERH EES EEES 
I 


) 


ethene 


ee ee ee ee tt tee ee ee ee 


me ce ee ee cee ee ae et ee ee se ee ee ee es ee ee ee 


} 
1 
! 
1 
! 
! 
! 
1 
1 
i 
! 
‘ 
! 
1 
1. 
1 
! 
] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
! 
1 
1 
1 
1 
I 
1 
1 
I 
1 
] 
+0 


a ee ne ee ee ee ee ee 


ee ee ee ee ee er ee 


De ee 


ee ee ee ee es ee ee 


1 i ‘ i 4 i 
! ! { 1 1 I 
SAMS SSCS SPRALCAASS HST HSC CASSSHFHMOHHHTOT IAFF HOSCHSPEDTHHHEHE RET ESS eSOReSS RP OeLe 1 1 1 1 
. Go TO 190 Biceiaceiahea el estes es cseeikev elvan & 
eee RRP OPO HO AD EFOO PCO OOSOSSHOHO THETIC BOTSOR IFO HCHO TOE OHROR TOSS VOC RODS I ! if i 
1 1 1 I 
I t 1 I 
I ! 1 i 
DPA OU SARS SHOS OSCR ESTO TOSSSS HOES DARL TAS TICS TIOSH SHOES ESOCE THOS SEHOOLE I ! ] ! . 
et e ! I 1 if 
PPMP FDT OH SSSTSSHHETCAT HT POOSSTAHSHHHOHH OC OS TOF OLE OHO OOOO ODEO HE TO OOOO RELS ir { I I 
1 I ! if if 
OGeerccnaeeccceveceesscerestserrescesnetarnels sD 1 I 
I I 1 I i 
SPOOR EPH OAO TEATS L OOD ROOOHRHATAODTIOGCTIFETO SOOM SOORORDEHOOTP OOO VOOR ODE I I 1 s 
® 230 CONTINUE . 1 I I 
° CONSGI¢U) = 0,0 * 1 ! 1 
. CONSG2tu) © 0.0 . I | f 
SPOOR RO PHSOH RIOTS AE IE TEMP FH FSHHHRTFOO LOD OSCOCHHHHOHHERTEE HERO RH OROH ROH. I I ! 
I I ! if 
i if 1 I : 
I I I 1 
FPSO SA DOMOSFSSHS ETE H IOS IMO AREA FHSHM SAH SKO THF OHH SHOOPARETHSH SOHO EO ROOD ESE I it I £ 
. Go TO 10 Pree DO I I 
FOSFO SOS SFSSSHSHSHS TFS HIGH SHSFFFSSHSHSOTTSSF HH CSLCHSSHSSHHOHRSESEHESTHSRO HOCH EIS I I 
4 { 
! I 
I I 
SOSTCHISSOPSFHSHSF SHS HH TOC BHETEHFHRVELTHOFHH DS - OPH FHeHSFeGeeeeseHerSeteetenia i i 
a> e ! I 
POSADA DPOOTESTSOTH FAH SF FOMO HERDED UO AVF SFOOSTOOSCH SHOE DHEOREHOCOEER RES if 1 
{ 1 1 & 
Ole vvvrcerercceteneescecvsaterneetenceeterneneteteseoesopeentessO 
i ! 
CROCHET POSAATORGHS HTL FOOSHOTSSSASTIAAT HATO HSAHSRAHAH HS TOTHHHTHHSOSHEEDE 1 
® 260 CONTINUE ‘ 1 
° Ti s T - NULAPM * MAXLAY + 1t ° 1 
® NUL APQ = MAXLAY . i 3 
° WRITE ¢ 6» 7009 )» ° I 
° woot e 1 e 
PCMH SSTASSPSSSSTSS SAC F HVS ISSHSFFHSSSHASS MITSUI SHI SHSHTOSHRHSHOROeHHESe SIH RetoRrD 1 
I I 
CHO sre greece plata a1 ac erelwioreiere sei ere lele Slee vi MiU Nee leieialsiey el are Mua eee ers Mereaiee GO 
i 
FEEELESECSRSSOS CER ELSES ESRC ESSSCHEETE IS SESE RE REEEE ECACC CRY DEORE STEER ENS Een 
2 249 CONTINUE ° ca 
° WRITE € 6, 8000 > ° 
® w pePBoT ° 
PPOVAATOSPOSOSSHS OS FOS TLAOKOTSHSHESHIVFTHOTHEOSFHOS TOOTS RTSOHOS HSE ROZOPEOTE 
1 
I 
if 
1 
I 
SRSOCHFTOSHFHSEHHAHATHEG STO OHSSSHSH HEE HTH THF AHF HOCSHOHESHHSGHETESHHRECHESZ He EeGe 
* RETURN ® 


POSSSPSCSSFSSHSHSHSSFFOHECOHSFCHHFSSEH OTH SHH TOVECHSHRHTCHHHSRSHAOTCOSHRO RAS OEDe 


SPSPSFAFEPHSHOTE SHS GOTOH OSHTHEHR HEH O HHO HF HTT OFHOHHSSEHH HEH HHEKHCHORHABHO REDS 


as e 
# 6000 FORMATE e > 
° F/46H A NEW POINT IS BEING ADDED BETWEEN THE DEPTHS 2615.9) . | 
© 7000 FORMaT¢ a j 
e F 22H NEW PO;NT NEEDED alt 14) ry . 
® 8000 FORMAT¢ . 
° F/46H THE CONSTANT MAXIMUM OCEAN DE®2TH IS AT (K-YD) €15,6) e 
*® 9000 FORMAT( . po 
* F746 AN INFLECTION POINT waS FIUND gETWEEN POINTS 2€15,6) e 
#10000 FORMaT( ry if 
° F/46H A MAXTMUM OR MINIMUM POINT IS LOCATED aT €15,6) e 
as e 
SSSSCSSHEFSHSSHSSSSSSSFH SO THSHHEECFHESHAHAHSTS SHC SHHSSSSSSESSOHHSESCHSH OSE REE HOES 
I i 
if 
1 | 
POSF TOFS SFHSSHOFSSHMSSTCSOHSHSTEAHH SH ATH TES HHHHHHT HORSES HEREEEHHROF EHS RSEEOE 
* END . 


POSFSO SSP PHSHSTHSOHF TOOT PSHM SHERHHTFG HHO HHH HTOHHSSHFS HHH HEHEHE CHHHEHREEOe 


| Ss | 


. 


i 
I 
| 
\ 
l 
[ 
[ 


‘ ; : ; 


— 


o 


bane or) — 
oo £3 ¢3 ep « 


KPT RAMEE, 
T 


SVSCSTASSSHSHHEAEHHHOSSTOOSOHHSSHEOSEHEEOEHOCHEOHEHESSESCHS RHE HEHHEHEHEHRHEEHROD 
®ZLEN3TH00 SUBROUTINE LENGTH 
* FOR COMPUTING PAT4LENSTHS, TIME AND DERIVATIVES 
SUBROUTINE 
Ss LENGTH 
S ¢(N, ™, DUMMY1, DUMMY2 ) 


eeee 6 


* 
SHSSPOSH RS HHCOASSTTEGCHOHSTEREDES GTO ORO SHPHESCSSEH SPEC EREOEHESETOROSESEBES 
° ee 
° oe 
OOOH SSSSHHOGSH OOF SCHHSOORHOETEHCHRFSEFTESESEREPEGH KET EHETHCHeSeOaFEeoe 


evrxeov@e¢ueeeoe 


acacaecacaca 


TOMMON 

7 CONSTN / 
DEPSER, 
NCONSK, 
SPaTSt, 
DEPEVA, 
NCONSL, 
SPATEV 


aaqanaana 


TOMMON 

C ¢ LCONST / 

NUL APO, 
DEPROT, 
CONSGU(128) 
CONSG1 (128) 
CONSG2(128) 
CONSyu0 (128) 
DELTAZ(128) 
DEeKYI (128) 
SLOPEJ(128) 
sPnkyn(128) 


vvgvoo00 O00 0 


TOMMON 

c/s PTHLNG / 

At 

BI 
CDSORD 


i=] 
~ 
x 3 
eee se ee ree ewe see 


NUMANG, 
ANGMAX, 
DELANG, 
DELRAD, 
ANGINT (200) 
RNGMOD(6,200) 
COMMON 

7 RAYPAR 7 

RANGEH, 
BOTLOS(6) 
DRDXDC(6) 
PATHLN (6) 
RANGEC(6) 
SP1(6) 
SPT(6) 
TIR(6) 

TTR (4) 


e- s2 eS ws 


gegoggugg0dgdgqaan goaananna aA AaANANNAaNaAIaAnanaanaga 
~“ 
» 
hd 
2 
a 
m 
Gi 
~“ 


cOMMON 

C / RAYTRA / 

NCONCI, 
INITLK, 
z1 ’ 
z2 ’ 
SPVRSQ, 
ANGSTRe 
ANGARR, 
ANGAT™, 
ANGSUR» 
SPOVER, 
RANGET 


e@eeoeveev ees eeeneoeersozeeeueere sees eecneveeronesreeoaeeeneeeeoeeeeeeeeteoeeeeeeeeeeeee tes 


ee oe nee e en eeee ooeeeeonweeescseeoeeoaeseeervneaeaeoeeoeeeoeoeeseoeeeaeee eee on ee ease 


aaanaraaaaana 


63 


ANN CAAT. IB, Sites at lie RR: 


ae er ee ow 


ene 


COMMON 


® ° 
° c¢ 4 gsuRnuc 7 ° 
° € Blal . ° 
° ¢ BLar , ° 
. c BLAS “4 . 
o ¢ OTRAD , . 
° ¢ J . ry 
e ¢ MSHIP , e 
® 3 BFL (128) . e 
° y Bro (128) , e 
> D DELRAY (128,2), ° 
° D FUN1 (128) P e 
° ia] FUND (IQR) ; e 
e D CON! R2049,59) 2 . 
® 1) CONLR1 (40.50) A . 
* Nous2 e 
et ° 
et set) = SPREADING LOSS TONSTANT (DIMENSe 
e: SPT¢ ) = SPREADING LOSS “ONSTANT (DIMENS® 
cel . 
° SPAFUN(C DUMMy? ) = ALOGIN( CISC DUMMy2 )eo2zar ) e 
° @ = 6,6 ° 
ot ° 
° INITUK = M e 
e 71 3 DUMMY) e 
* 72 = DumMy2 . 
° CALL ° 
° S RATRAC e 
’ RANGEC(N) = RANGFC(N) * RANG=T ° 
e ANSSTR = -ANGARR e 
PHSIFOTIOCHSHSSSSH SS HOH FH SFP HFHOS SASH H HS HOHESHSC Sr" HCHTCHSHFSHGH SFO OHSSOCHeHROBee ESSA 


I 
I 
1 
! 
1 


POCOO SOHO FOSSS HH PS GOSS OE HOHSH HATS AAA HOUSES HST SHHSH HS HSHHKHOCHEHESIO HOH OHEoOe 


4 IF( 22. .NE, DEPROT 4 Satin as 
» ® G0 TO 10 . 


POO OOS PHOSPHO HSFSASFS HSM HOHSSAOHOHSTAS OA IFHOC HOT OOS HOC HSHSSHFSSHTHHHHSOHSLeGeH HDS 
! 
I 
1 
SPSOCSFOSFHOMSHTHSHOHSS SOS OH OSAAT HH HHOGHHE HEF FTSF OSC HH HKOEHHASHE HSER FHOHSHSe HHH HHHOCS 
° ZOTLOSUN) = TANH( SLAL@ANGAR? ) «© ALAQPANGARR@ANGARR rs 
PPOPSFOFPSFOHHR HOOF HOS SFO OTT IPSS H HSS STP HOH TSF SSTOCHHTHSOHSHSOHEFSEHRHHSIHCHOVEHBROS 


i 


BG oa 06 CWRU CONN ONS ee oe CARNE TE WON Oe RE aes 
! 


Om ee ee OO 


SPSL E TSO TIO RO THOSE SHOOTS VEAP ORTGESIIITOCSS TOMER ORTHO FOS HOSOHOROOSHREHEDSD! 


ry 10 CONTINUE ry 
e 1e( 22 .NE, DEPEVA ) ° 
° ®PQCTURN a 
es ° 
° ORDXDC(N) & UXDC a 
e DATHLNON) = PL . 
° Ay = ABS( RANGEH®SING TIR(N) D®SINC ANGARR )®SPDVER®DRDXDC(N) ) ° 
° SPTCN) = 1M, 08SPAFUN(C TIRO(N) ) cy 
ry S7TON) = 10, 0e5PAFUNC ANGARR ) ry 
° TTQ(N) = ANGARR ° 
SOSCSOSKSFHOHSVCESFHOS SF AHN SFeGFS Ke Haase FOR SH Se THHC aS HeesF Gove gtevalteecGssescaton 


1 

if 

! 
SPSSSIMFHSSHSOPHS SHS EHP SH HTS SSH HOE TA HAG SPH HSH HHT HSE HCAeHOSOHHS HHL HOHHSIBO He HH ETE 
° RETURN * 


SPSSCSIOSOSFSSFSH SHS SHAH STOSHSSOSCH HFSS HHO H SF SST EKER Se HOFHHG HEF oeBOT HC eDeB OBES 


| 
POST HOFSSSFHOSFSSHHSHEHOTESSSS HSS HH HHO ST FH HK Son SSeHS Gee FPS GeaceseHeeGateesasos 
ec e i 
SOSH SPOS SFSSFSSOS SHH THOO SF SESHHTFSISSES FIG HS SSH SHHSHOCHKASHHSS HEH HHHHETHeeZEH OOS " 
: 
SPSTIOHSFSHSHSSHSSHHSHSHF HSS HF SSHSHSTFIFASHSHISSHGSO“SHSSSHHPHH SH OTEOSHHEHRACCEHE OTe | f 
‘ =uD 4 ui } 


SOSPSPIFOG SHIPS SHSH OHS HO FSSHHSSHSHSH STIS HT HOON HT SOCSHHRO SHH SPHERES MOS OSB OOSe 


PINE OE 


——— 


ce res iia 2 a 


ee a 


CENTRANCE) 
! 
1 


POPPE PEPER PHSDOMHRTLON TE SHSOH HHH EOE FTA RL ROTHOCHH SH SHH OHS OHOOHOEH SO SHOEETS 


eIMIRNTOO Func rion MORPNT ° 
elpyozpono FUNCTION FOR POINT IN INCREASING TABLE . 
e FUNCTION MORPNI( DUMMYL, TAR_ES, NUMBER 34 e 
o> e 
a2 SSS SSHe SF ee Foe FF MSSSAASASS ED BFF Sores seeaeesesssenevseeseeeeveseteace 
e> ° oe 
at FINOS THe PLaACe IN AN INCREASING TARLE THat BRACKETS THE DUMMY Vale 
o> TF DUMRY VaLUe 1S NOT WITHIN TA3LE RANGE THEN ° 
et MORPNT= O INPi LES DUMMY TS LESS THAN FIRST VALUE IN TABLE ° 
«> MORPNT .GT, NUMMER IMPLIES THAT Dummy 1S GREATER THAN MAXIMUM TABe 
62 THE aNSwER TS THE FIRST Valu GREATER THaN DUMMY ° 
«> * ee 
“ee PCMH HHSOSE TH AS OTHE SSOSH FOF FO FOF SOT SHOHSH AG HFEF HL SSTEOCFC ORE eEF ERLE 
at e 
° OIMENSTON e 
° n TAS  ES(NUMBER)D ° 
a> e 
at OUMMYS B yaLUE TO RE QRATKETTED ° 
a> NUMBER = NUMRER OF VALUES IN THE TABLE e 
ot TASLES( ) = ARRAY OF VALUES TT) JE SEARCHED ° 
e? ry 
e MORPNT = 0 ° 
. {FC DUMMYE JOT. TARLESCLY 3 . 
e e@ RETURN . 
PESTS SSSA SPSS KCSCSSAG AH TT SSASSSSHHSSSSDH TEST SS LOPS RS SSSOHEHHFASCOHSOR OLE ESET ES 


! 


1 

I 
PPS VTP STSSSPLHSSSHSHSASH GOTH FOSH SSCS SMe seHeOBWF HOFF OCHH SSeS eFeFCeesecCHeReHeeeeeeere 
2 90 100 e 
° t 1 = 2,NUMABER e 


PPSTPPM®PSHOSSSHTHASSS OS MOVWS SSH FH SSS ONS STS SHOTS GA SSCSHHHSHHES ROHS RAS ESERES 


I 
{ 
! 


PISOHSMAHSASAVMSYTISSA AAS TASOSSSH SHPO SRO CH F®HH oO SCHKS STOO ESO LHEO ROVERS ERP OHIO 


e TF¢ DUMMY? .GF. TARLES( I) ) Oe 0 
> » 69 TO 100 e 
POSSE RE RPPSPROGOASH HSE ROSS SHOSIASLITIFHTAHSTC SGI S SMO HOR HCEHOLH TORS HERES 

if 

I 

1 
SPOTS PSSSPHSPPFAS EMSA TET SMOVRASTS GAH FACTS TAAALAARIOHT VOTERS RSHE REED ERLE 
. MORPNT = ] ° 
SPOT OPTDSOSPESIHSCRAS SEH LHASA HESSES SHO SHLS OL AT ADdISHPOHOH RCE HEREC ODOR EP OOTe 

I 

1 

! 
CLSRS PSS SSS PSSRSHSSHGOCHTRO SFOS LH TASHTE AHH HTEMTOLOSHOOFOO RCE HEOC ROPER Eee Ze 
. RETURN . 
PPOFOSOHTSHSSSOCSSAON FFF OHM HHHHFFHO HHH THIF HT HST HFA TLR HHHTOOHHREHE LEH HHeeeerde 


oe ee 


ok ie ee i i ii) 
* 


a 
POSTE PEPSSOHOS SSS LEC HOCFFSHSOHHOHSS VOTH FOCSOTHR SST ECHR HHRSHHOHHES HCH ESRLIE 


© 109 CONTINUE e 
COMPO ROO POMEL HERE O TET EO OOROSE EHD D IFO TERPETETE REPORTS ROR OSROO ROO ERSE 
1 
I 


if 
PORTO TSTSSOSEMSOHTIOFOOTC FOSS TES RHSOK SSO TASTEHAASRRERE ROE LHSESTES SHE EDOETE 
2 MORPNT 2 NUMBER « 1 e 
SPOCO TCSP POSH ORR TO FASC VHSSHGISHSSCHSH ESOS HSH SSHTSSSS STEER SSOP Hee Reeere 
I 


1 

if 
SISFSSCOSSePCSSCSS esse SS esl CFS eSsesoess yt sol Seer sesessegssesserveesesestseatstegreers 
° RETURN . 


POPC STOHTHS SHS SHSH REG SSOPHOHHSTSSSSHETHHTS ESO SHSSS SOSH EHH SLO ROHOH OE SEER Ere 


SOSRST TO SCHS HSH SO KSEE TTT ETHOS SESH FHS HTITHTLSTH HTH SHOOTS RHEE HSOLCE RCO RFORHS 


ec YY 
POSVSTT TOSSA SS SHTLOSETTCO FOSS POSH ROSES TELLER FOP SOTHO SORE SOS TO OHOOH RSE RHO TE 
1 
! 


SPOS TOSS PHSHHSSS EFSF SOMA FHOOSSOSSSS ESTA FTSST SCS LHHHHSHHHEHOOHSS FORGE RPALTE 


° END e 


PSOPCSSSSS SSSA STOTT SFOS TASS SHSSHOSHHS HSH TIOSHOCSHHSHAASSEHSSHAAHSAVA ESE OSHECE 


} 


| 
i 
i 


CROC eRe esas eaeaese 
eDMSTRAYOO 
ertsvsza000 
eTS¥sTRoo0 
SuSROUTINE 
s 


@eteetesseee 
* 
THIS IS mas 
2 


pcaepcacacnee 


COMMON 


COMMON 
/ LCONST 7 


COMMON 
7 RANGES 7 


AANANAAANANAN BVsuANANA svv<,VVNV cGIANA 


eeerereoeeoeor we eet eae seeer esos er seresevereeaeseeee eee eHeeeeoneves 


DEPSER, 
NCONSK, 


beraor, 


CENTRANTED 
1 
{ 
SPS FE TOMO OHSAAEH EH THERA SESTAASERESSSESEERECO ZH LESR ELE 
SyAROUTING MSTRAY 
MASTER RAY-TRACING 2RIGRAM 
SUBPOUTINE FOR SETTING JP RANGE TABLE FOR RavS 


MSTRAY 
. 

POE OE LRM OOORE ODOC SOT OO OOD TOSOOEO OH ESOR SORE OROSEEUG 
ee 

TER Ray TRACING PIO3RAM . 
ee 


PE PCOPO SHS SEED  POMSOHSTOGEHEFTOS HS SEOTOSEHOTO ERS ORE SESE SEDOEODNS 


SPatTSe, 
DEPF Va, 
NCONSL, 
SPATEV 


NUL APO, 


CONSGO (128) . 
CONSG1(128) . 
CONSG2(128) 
CONSV0 (128) 
Dec Taz(12@) 
DEPKYN(1 28) 
SLOPE I(128) 
SPoKyn(128) 


NUANMO, 
ANGMAX, 
DELANG, 
DELRAL, 
ANGINT (200) 
RNGMOND (64200) 


eeeeeoeeneee eee tere ere eee eeeneaneereseseeeeeees eer 


COMMON 
y RAYTRA / 
NCONC), 
INITLK, 
21 ‘ 
22 , 
SPVRS). 
ANGSTR, 
ANGARR, 
ANGATM, 
ANGSUR, 
SPDVER, 
RANGET 
S ANGARR = ANGLE (IN RADIANS) AT ARR} yat POINT (22) 
i ANGBTM = ANGLE CIN RADTANS) JF BOTTOM BOUNCE OF RAY 
S ANGMAX = MAXIMUM ANGLE B=I1NG CONSIDERED FOR RAYS t 
ec ANGSTR = ANGLE CIN RADIAWS) 3F START OF RAY (71) 
°s ANGSUR = ANGLE (IN RAQTAVS) IF SURFACE BOUNCE OF Ray ° 
e2 CONSGO! ) = GO CONSTANT aS TOMPYTED BY CONTINUOUS DERIVATIVE ROyTe 
es CONSGA( ) = & G1 CONSTANT aS COMPUTED BY CONTINUGUS DERIVATIVE ROUTe 
es ConsG2( ) # G2 CONSTANT AS TOMPJTED BY CunTINUOUS DERIVATIVE RoUTe 
et CONSVO( >) ®& VO CONSTANT aS TOMP UTED BY CONTINUOUS DERIVATIVE ROUTe 
ec DELSER = DEPTH CIN KeYD) OF SEARCHER IN ITS LAYER . 
oc OE>KYD( ) © DEPTH CIN Ke¥D) TD TOP OF LAYER FROM OCEAN SURFACE « 
et OGORRD 2 DFGREES PER RADIAN (DEGREES® 
«2 Ozvx ® . 
oe? INITUK = INITIAL VALUE OF < I.E) THE INITIAL STARTING LAYER . 
e> NCONSK = LAYER NUMBER OF LAYER IN WHICH SFARCHER IS FOUND . 
*: NCONSL ® , AYER NUMBER OF LAYER IN WHICH E! ADER IS FOUND . 
eo: NUANMO = NUMMER OF ANGLES FO? 2A4YS MINUS ONE COIMENS® 
Ss: NUMANG + 8 NUMRER OF DIFFERENT ANGLES BEING CONSIDERED FOR RAYS © 
e2 NULAPO = NUMBER OF LAYERS >LUS ONE e 
e: wvTxXLO 2 | AYER NUMRER BE_OW LOWER VERTEX LAYER CDIMENS® 
et NVTXUP = LAYER NUMBER IN WHICH RAY VERTEXES (DIMENS® 
«2 R ® SUMMATION OF TH DIFFERENT LAYER RANGES e 
*: RaNGET ® SUMMATION OF THE DIFFERENT LAYER RANGES ° 
«2 RNGMODE , )# RANGE CIN K-YD) FOR THE DIFFERENT MODES OF PROPAGATIO® 
e: First suBSCRIPT IS “ODE TYPE . 
et SECOND SUgSCRIPT 1S RELATED TO DEPARTURE ANGLE . 
*: SPDKYD( ) #& SPEED OF SOUND >ROPAGATION (IN K-YD/SEC) 
ez SPLASE © PROPAGATION VELOCITY CIN K=YD/SEC) IN LAYER FOR SEARCe 
*t TY ® STARTING ANGLE (IN DEGREES) OF RAY FROM SEARCHER . 
et Tv.o0 ® DEPTH CIN K-YD) OF VERTEXING POINT . 
e: ZvuP = DEPTH OF UPPER VERTEX POINT FOR RAY . 
e: . 
. OGPRAD = 57.2957795 . 
. 72 © DEPEVA . 
. TI @ ANGMAY/DGPRAD + DELRAD ° 
e NUMANG = 2, QeaqNGMax/DEL ANG ¢ 1.0 e 
POSSE OSS FESSSSSSSESO SE OSSHSHSSSSESHO FOSS SOHSSEESHESESSSSESHEOSROSES SHEETS 


u 


a 


Foc tes tat SSRN at Ril iis Nath inhabit li la iil eA NNR ais SN Nate ah acct: anak 


2 


cr ye eS RS 


1 
POET PEMA OOCORROTOH UES FORTH OFOH2TITT0O COOKTOP ORO EERE HOO REeeeserin 
oo 200 ° 
| J = 1,NUMANG ° 
PORES PTPOOMORLOCT IO TOL OPHOLEDOEDTOTOOTOO SHO OVEOOHOR EE OOHOHU SO DeOeRae 
i 
i 
i 


PHTO TOTO TSAAATOFE HEAD BOHRA HFOFHHDOFOHE OKT HNRHTROROHHSOEOH DEH OROEE DEERE BeUS 
No 100 . 
! I= 1.6 . 


SOCK RE ROMOPEOOEEL ID TE OOMOREHETROEU TUT OS GUOTTAVOOH OER EOOHOHROORROREDS 


Abele Pe! 


| pee treet rte 


! 

! 

! 
SOROS TEM RMOAAOOOOTE MIGHT OAOMRAAOAOH DD TOOT AOTOEHOOAH OOH R OCD UOH TELE CHEER EELO 
* QNGMOD( I,J) = 0.0 3 
PROC KATE OPOOIOEUOEEOIATT FOOT EO OOBOEEOIODE MOU OE MOTOR OOO ORV OC OTOU ES SEOOR EID 


RUD RINNE HD 


OCPe bees Foseeaecawonrne PPPAFSGFOSOTORF OHH HETHEHETHO SHH OSE EOE REEVES SEEEESLS 
® 199 CONTINUE . 
PESKCHSTHOOHHSSFOHOHHHEHRA CS CHHHKORO BAO HTCGCHRFOKH OF SOOO RB e EEF eeEHeEeeEeEECe 
! 
1 
! 
SPSOCROTCMOBAMOAHEHHAAFOLCHEEOHAEHOHGHHATCFEFOHRUTHEEOHHOHOHHROSOHREBHOVESOREHEBTS 
21 = DEPSER ° 
Tt = TL = neELRad . 
ANGINT(J) # TI ° 
ANGSTR = TI . 
SPDVER = SPATSF/COS( ANGSIR ) . 
I s NCONSK . 
PRPS SE PT FHPOAHAAHOHAHTIOPSMHOTAHAH HR TAHOCOSTEHEAOOOEH OSES TEHOHOEES OLEH ELS 
I 
I 
PHSLAAGCAHSCHSSHHHHHSCA EON OCHS HEHHGAHHOFTHOTHOOTHHHOHKOEOOKRESe Dee OER eee eteeve 
® 10 CONTINUE . 
POSS SOPHO HOMHOSFHHGESHARETFOHLOPHPHOAHSAHHHTFCHSCEOTOHOSCTOSFHS GOBLET OHSEREESESEOdE 
i 
1 
1 
PPSCHOHO MF LOSSEOHHHOTHHOH UE HOHOHHOHHTSHTTO FOE THRSCSTEDLEMEP OSE EEHEHHEE SHER REUSE 
° Te ¢ SPNVER ,LF. SPDKYD(I) )» Ooms 
° e GO TO 20 . 
SPSLOOTAFOHSHSFHHOHHEOTHOCOSSHETOGAGSOOTOCAOSOFSEF ELE HEOP BEDE EEEEEES atesce 
1 
I 
! 
SPESCATOARGCHSHOSHHOSATF HOCH HSSH HOSA THHOHCTHECTOTHEOCSHHSHOH EGE SOEEOCOTE SE EHH EEO 
e retell e 
SPOSVCEHR POOF HSSOHSHOHHHTAFTFSSHSHESESHHHOHRAHTOHRFSOSOOHSOH SORE THERES ESSEC ORHE 
fi 
i 
1 
POSADA OAHHOSSSHTOHDHSH HOT OHOHHSSH HEHE HTT HAHOHTENRET HOPES O KER EEEOOHH EEE SEE EEOe 
. Ir¢ t .NE. 0) Onocn 
° «® GO TO 10 . 
PHPORATCHHHHHASHKHOFOOHOHU OHHH THEO FOGOFOHSEOHSUOHOHEEHAH HOHE DEHOHEHORSERBEEOS 
I 
OCs clecieieiis eee eve neee tele ceed teeeetinneteeeswey eves 
1 
SESH OR FH OOSHAHHEHEHESEOLAEHEHOHHHSROTHOCHOCHHHEHHTCEHEHE SHEE EHEOEECH SHEE EROS 
. 20 CONTINUE ° 
° NVTXUP = I ° 
ed 1 # NCONSK + 1 e 
FOSFHOHHSHHHHESSSHESEH FOOL OHHH HOHSSHH OTOH HCHHHEHETHHSEFE RHR EHEOHHEOREEHEEOOS 
I 


Decree ene reeeteereeeeeeeereeerereseretere sD 


OPEC EH THOPOHTOT OOO HOOD TE OOORHORETOHTOTOR DORIS SED DORORODO ROO EOOH ORE ROROEDS 
° 30 CONTINUE . 


OP OOEOOHOAESOSAOHGHRE TT OCVOROGORUHERH DD UHEEOOHOPEKTEOHEREO RO REOHOSE ROO RLDEDS 


—} 


a a a peak a es ae ae yd ey 


TEMS AARNE TET OS TM br RE 


* IF ¢ SPOVER ,LE. SPOKYDCI) ) 
° 2 GO TO 40 
CPST OTAAOFHSOHOHOHATHOPTSHHAEAHOSHEHETOHO HHH EOSHOSHEEH ERE EDEEREEOREE 

| 

I 

I 
POSRE THF OAHESSHHOHHGHOMEFOSHSEHO HEE HOTHHOHDHUHEEOOHHOP SHEE HESEEEEHEOEESEEHD 
° bik | 
POSTER OHHOHOAHOTE TOOTH EHEHESEDHESOHTHTOHT OH ETEOHEFS TOR HEOEHEHSEHEEH EBLE 

I 

I 

! 
SOSFTHOTAHSOEHHOEEHOHMOTEOHHOHHOEHHHSHONEHHHHHAOOHOHEEHO ROR EHEHEHOE EO ERSEEOe 
* IFO T (LE, NULAPO ) Pree DO 
° * GO TO 30 . 
CHSC HTT EFHSHHHEEOEA OHV OEE SOPHO TOSKESHHSHHHEHEH SORE HHHOEEFEHO EEE EELS 


I 


te sss es ie a snes : - 3 ; ees so alitiientiiadie oie 


, : 
j { . 
= q 
a 7 
; 1 | : 
! \ 7 
RO OOOO ROR OPEC EME EEO O RE REO EET TREE OHO DEPP O OOOH EL OOOO EME STOLE HS t } 3 
e !eo . ! | 4 
eT eTeerere Tere errr rererert Creer ire eee ee eee eee eerie ee rere eee iii te) i} ‘ } 
t t 4 
0 
Seneeee peeve B 
: 
ame ve dua deeBereeressors seereseesers j z 
+ 4) CONTINGE ° - 
:, . Nyro = ft . id 
POORER ERE E Ee eee Ree EHH Oe OH BPR EMO Re eae eee ser eeeeeeesies 
! 
! q 
' : 
a eT ereer rere Te eer errr meer Ter rer rr eee er eer ee te Cerri stirrer rr iri tii iy 
. Tee @NVINUP JE, 0) .aNO, GNVTELD (£2, OF D Seveas td 
. * Gd TO ao © 
RO RC OOOOH Ee EN POOR e HH EE OH RH ROO P Reese ererereresetesis 
! 
{ 
! 
OOP REO R POOR O RE OE E FOOTER HEE HHH HHT OHOH POPP OREO EOE EDO O SREB IS 
. WRITE ¢ 6. L000 ) . = 
POOR OO ROO O OREO EE EORHO Ree EHH HH HH OHHH HOHE P ene eeeeeeeeeeeeeretian 
1 
i 
PROPOR POORER OREO ROR HO RET REE HF FRO HORE ROHR eee e ee eeeReeetegeetia 
. tee TE .€0. Oa 2 Onn earn . 
. 2 59 TO 110 . 
ORO PR POOR O ETHOS OES TE SHOE EE NEHER OP ORCCEOR ODO SHEOOOHEO SERED ESD 


i 
1 } 
1 

COOPER OAR E RAE E AEDST SOHHEOFHAEE HT LEST OR OH EESSEHH OSE SEEHEEHFO OBER ERLD 

. Te ¢ NVYIXUPeNVT EL (NE, OD Waieesea bey ceeaake aoe 

* * Go TO 200 . 

PPO O OE EEO SAFECO S EAR O EDEN OPORTO SIHSO ROPE E RD SHOT PTEFRO SESE REESE RDO R ETERS 

4 1 i 


! 
POOP e OR RRO OOHRS COTY TF IHOO IAEA D HE AOEOOF OER REOR OREO TEESE TODO ERED LD 


2v.0 * DFPROT 


° ° ' 
° zvuP 2 0.0 . i 
. UPCONVIXUP JNEL 9 CALL . J] 
. Ss VERTEX . 
ry S ( NVIXUP, L.O/SPDVER/SPDVER. 2VIP, 24-DEPKYDiNVIXUP), 2D . 
° IFC NVTXLO ,GE. 2) CALL . 
° Ss VERTEX . 
. S ¢ NVY¥LO-1, 1, 0/SPDVER/SPDVER, 7V.0, ZL-DEPKYD(NVTXLO-1), -1 ) . 
BROOD ORE PROC OTTO OED STU E CHEST HSTSTD ESE RF OO TATED SEPT RESO ETE ESEETEDE DEH EEIS j 
1 
i 1 


POO OOOO MO PEE SSOP ETH EOE FOOT RS OO TOOTH IBIS OCT OOC SCORES HORE HD TOHSOTORODEREBES 


Co ee ee ee eee ee er! 


ere mee ee eee cee re err we re ae ee er ee oe ee eee ee ee we tee ee ee ee ee tee ee ee ta Oe et ane OP ek Oe et et te et ee ee Oe et et te es On ee ee es ee et ae ot OS Oe Ot tt OO OO a ee Ot Oa Re Re et ey Ss om 


i} 
{ 
t 
i 
i 
t 
i 
I 
t oO 
i I 
i 1 
t t 
{ 1 
' 1 
{ t 
i i 
| 1 
t t 
| i 
| 1 
t t 
| 1 
| 1 
i I 
i | 
I 1 
{ t 
i i 
. tre 2% .€0, 220 Gewese entre aw ls. ves ene le cacao 
. ® Gd To 120 . t t { j 
PUVUeCETTTTT IE Tee eee eee eee eri iii) i 1 1 
if \ 1 1 
1 t t i 
1 if 1 1 } 
POTUVUTTTTT ITT errr irri) if \ 1 { 
. TF (¢ ZL] ZVUP DOC ZVUP=22).GT.0,9 .0%, (22=2VL0)*¢2VLO-22).GT.0.0) COs ae eee eZ H 
. * Gd TO 200 . \ 1 1 
PMO O ERO O OOOO OME OH ODT TIER ETE OER E RT TESC OST SMODOSESEO RED COTOHED EEO EEDODS 1 1 1 
j i t ! H 
Deis camrenueyesvennsruee Ceamuboeesanennteds 1 \ \ ’ 
! i 1 1 | 
OOOO OOO PROTO R OORT ODE SHOSEOAHOROSE DODO EDT ERD TOOOTODEDO SER EEDHOO ROOTED LD t t I | 
° BO CONTINUE . I 1 1 Sant 
; ° INITLK = NCONSK . 1 1 if 
' SO OPOTO SHEMET MOOSE H RSET TF OSHEHEH EHSL IFFOFAHHEPO TO HHUO SODAS EEHEOHHEHLAHEEOS t t t 
j 1 i 1 if 
j I \ | i } 
i ! t t t | 
POO OOo OO POO PO ROH O AT TOOHSOOTOOHHEEED DFO RTO TERE TERO OOO RERDORESES OR COTEEOe iT 1 1 ] 
F i é tee Th wut, 0,0) Seine l 1 1 
, ° ® G0 TO 130 . if t t t 
' 200 P OOD POET OOOO ETDS TSO HEREROEREMAD TO OOE DH OURHHEOSPOCE ROE RERSIOOBERGELS 1 1 1 : . 
4 if 1 | 1 
i 1 { i t t | 
{ 1 1 i 1 I 
ROU POO OPO E OOOO RODEO RT Ee POOSEOEH AEDST DEEDS FORESTER ORR ORE DOERR ETO ROE ECON DD 1 1 i 1 
y . tec 22 LE, 24) Or ee nk: im | i { 
. * G9 T0 90 . ieee Come 1 1 , 
COOP O POS PERE O FOES COST OO ORO TOO ROCT ITO TODO TOU OS SOPRORETHDEOEROD OOO EEERDG 1 if i} 1 1 
q iy if t t t 1 
l 1 | l 1 if 
1 1 1 | \ 1 . 
4 1 t t t ! 1 
; ' Te tts Sy 1 1 
q PROOF ESOC OR SO EERE EDO FORTE HOOE THT OOESTOOESHORER SESH DE EOEOS ERO EOE ERES 1 1 1 \ 1 ' 
. CALL . I t t 1 1 
3 . s RATRAC . 1 1 ! \ 1 
3 . RNGMOD(1, J) * RANGET . if 1 i \ | “ 
. ANGSTR = ANGARY . if t t 1 1 
; ooeeees POOF RHO OE FEF ESAO OHH SO OEE OOD TE OHOOOHEE SESE DEES OHERHES EES ED OS 1 1 1 1 i 
t ty Et. 4 \ \ , 
Olicecereveeveveveevccesreeseescesecesetvceede eG ft I ! | 
| 


Caer 


Fae 


FI 


te 


PEEP OR 8 Me 


=— 


ee 
* ’ ad * . 


! 


SEPP PE MEPHOEHHOCEL ROUT FOOOEHROTHE ETD O OH OT OHOROOHOO OOOOH SOOO ERODE DOEi® 


° 997 CONTINUE * 
SAAT ERE RSROSIE SRO EHH OOO ORME ODT ARE HED ERO OR LORD OOP ODO EeO EDL OReLeeeere 
I 
! 

! 


PEM OREPSHMEMOOE GHEE HOHE HLOOMYTNTETOD SHOP OL OOEOO DOL EROOE TOO ORES EO® 


IF( NVIXLO NF, 0) . 
e 49 TO 200 . 
CRSP MOREH EH eer HSeOheseaeeenesowion SHOR OT UHHH ORE OMOFOOE SO EEE Hete 

1 


POPE OEE ORAEEOOROE REDE SOPPROHATEP ON SAKE CUSLSERUOSORROPE DESEO ROE Eee eie 


° 71 2 22 e 
° INTTLK = NCONS( . 
° Sale * 
e s RATRAL . 
° RNGMOD(S,J) = RANGET © RNGMOD(1L, J) e 
CPS ST PEt eKKeseseethns SSPRRE ROR TEHDO TT HO er  MERUOCOOOOE RE HETOEOO ORO DEER S 


1 
1 
! 


PPAF MAPEAHOE EOD GE HP OOC DO RHEOO OOD OOOEe SCOTT OTOH OHSAS SOHO SER ESEEeES 
° Te ¢ NVTXUP NF. 0) . 
. e Gd 10 20 . 
CPMPOHH OEM RERECHOHOEEDHSHOEREOEREOE DE DHRC HE OTOH OOOOOE ROOD EO OUOH ODOR ORETS 

{ 

1 

! 
SPOTOMOOTCOMAEOEHHE EEE IEOAORHSEE REESE DERE FRSROR Se TOPORES EERO OCEEOR EES ED 
. ANSSTR = -ANGSTR i. 
° CALL . 
® s RaTRAC . 
e RNSMOD(5.J) = RANGFT ¢ RNGMOD(3,5) . 
TROP SRC ATPSOEHOHHDAO ERED PHOTO OHOROTH EL OS SECC DEROSOOELE POPC eee esos 

1 

if 

1 
PAMOELOEEAHRERTPREVO OTTO UMOHITOR OEE DOOR KOH TOIHOOOEOOHE TOC DOF REED ORCR EERE 
° 69 TO 200 s 


FPOHEMOMTOMHTHOOROK SHOE UPSMOAO MURPH LH TEAC GRORTALERHOROTSOREES ERE ORD ROSaDDE 


BHAA SSCS RA SHKSSEROO SRD OORERE SHO REROD IODC OOO MRO DEO TEPER ERE OROROES OC EROOELG 


. 
PPOKRTEMELATAHRRHUTID TOD AOME EOD RMHOUDO FOO HRI TAGE COFOOE DEORE EERO DEORE ECe 


1 


Dv eveveerervcsnecnnes 


1 
PEMPHHMEHOKEME HUH TOOOHOMROMDOREMEE OED HOOT HF HOC DARTH RO REECE OO TOR SEEOEELE 
* 10 CONTINUE e 
° ZvuUP & 2y . 
. Zvio * 71 . 
PROSE EIU SOO OOOOH DUTT D HOODOO ERO OOOO ECE ODT ECO ROOD DO DER TE SOOO OEeereeere 
\ 
1 


! 
PORTH AOC ODERAROEHE HOT DTVOROROO DOE EO OHDO OD TOOT HOE OOO RODE ORE ROS CODE EOHS 
e GO TO 200 . 


PROTO E TE TFEHAHIEOTOT EOD FTTOHREOR REP OTH OOTE DT EX OOSOROEOH ERO OOO EH ORD OL OE ETYE 


OPMPEOTPEPOPOO MER OHD ODOT TOOHOOSH REED OUTED DE TOROUOOOOOOROCRO OED H ORO REREEED 
at ° 
POMOE OE AOE REHOHOHEE HOOK DECROORHROOPOR HOOT ED SHOP OHHOEOO THREE HHCREPEEELELE 


Qvvrcevecescegeeeeererteeeertsasaens 


if 
PROT AAOOOHOOOHHEOHEOOHOEOOHEEOOO RHO EO ORE DE TOL OHO RSOOORCOH EE OERR OER RODEDLE 
® 120 CONTINUE ° 
BOSE EO ERMARMOAESATEDS SAORTOSOODEE DOD EDS OTOP ORO OOO RROE REE ORRT ELSE RE EELE 

1 

1 

1 
POOSOHE HOPE EERO OME ODOOOOHO ES EO HOE DODO OH OPOLORO CROC RECO OOOODODEOROEEDS 
° G9 TO 2 . 


POMPEO OM OP OHOHOEHOEH ADCO UORO ROD OO HOMO ERE HEOEOEO EO SHOHH OOOOH ODER OLE RECE ROE 


POPE OREO OTHE SEO ODEO DO OOOHTOTOSHOEHHHC SO HEOOHHREMOREHOEHEOE TOR EOEEBEOLE 
o> . 
POODLE C ROO OTHE HOOT DEE TEHOOHO ROOD OO UE DU ORV OEOTE RECO O CODE EC OES E EDO ECEEE 
i 
OC sree cs eee erage beereeerateeeveseues 


SOSP CTEM AHAETEEESHOO HHO HP ERS ED TO DEH DE TOOTH ETO TODO HEHOROOHHEOOSEH ORO OR SO EHD 


® 130 CONTINUE . 
COSTE OHH HSH OHEEHOHH HHO OBE EHeyH SOSTTOSORTCHOSUSPHOH ESOP SHE HEROCEEO RHEE E RES 
1 
1 
! 

COOP COPE HOSOOHHOHOOH HH OOTHEF TRH SHHEETDUO FON HET EOOTEROEEHE ES ECEEEOHOD SORE EDS 
° ft 22 .G8, 24 » ° 
. # G9 TO 4590 ° 
CPO SH POOH OHEOHOOS ESTE THEE EESEH EHO TORE OOH HOSES OEEEHOSEHEEENOECCCOER ERLE 
I 


whan 


ee ee ne eee ee ee ee ee es ee ee ee 


Ie ee ee ee ee ee a ee ee ee et ee ee ee ts ee 


——--o 


Ce i iy 


vate eeeeeeneeal 


- _— a ‘ Ee Sa 
1 1 1 1 
1 i 1 1 
1 | 1 ! 
} ! J 1 
1 PPO OTOH OOOOH OTE TE TH OS ROHEOHAEOE OOD OMEOOTOOHOCOR OHHH OO HEOOEET HOSEL ETE Ky 1 1 
1 bs CALL . 1 1 
1 2 s RaTRAC ° 1 1 
1 ° RNGMOD(1,J) = RANGET . I 1 
! POO CORO BRMEDOOHEME DE FE OOOHEOHOOOMUTT ORE AD! EOD OROOPOORODEEOEO OCOD RESO DS 1 1 
i 1 1 1 j 
1 1 if 1 
1 if 1 1 i] ‘ 
1 SOMOS COME OROMOREOEOE SE  ETOMLOHHATEHTENTOAOH HE HAOCHROHOROEOOEEHEOTE HEROD OH DY I t : 
I . Te CO NVIXUP NE, 0) Miceveclanicaaniee 1 
1 ° * G7 TO 160 ° 1 | 1 i 
I POPE OOO OP OOOS EDEL ED ED KC OOHSOROO ROE H HOOT OO THURD THOME EDOEH ORO DELO EEtEHiY 1 ! ! { 
1 I 1 1 1 | } 
1 I 1 ! ! | 
; ! I 1 ! “3 
1 PPOU ETOCS EO OFEED ALE LHD FORO DETER OMSTORETTONOOOOCOHRMERTOOT OO OOED EEO ET ED 1 ! 1 
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2 MEAN OF SMOOTHED EVADER S/N ° 
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* BRXK,PE(3),ALPXN, ALPYN,NSMAX,N=MAX * 
e Ni =N-1 + 
# Al = VXS(N1)/VYS(N1) ry 
a VECTXN = ( PXE(NY) = AZ@PYE(NVZ)) /( 469 * ALPAL Ps 
2 VECTYN = -,l@VECTXN e 
* SO5V = SORT (VFECTXNeo2eVECTYNe#82) ® 
° DXNsVECTXN/SOSV e 
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2> # UPDATING PROBABILITIES ° 
“es 8 * 
oS ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee ee ee 2 2 2 ed 
® SUSROUTINE PRORAL * 
r TOMMON /LAREL/ R!,RCJ,SS1,SF1,4S1,4E1,PXS(128),PXKE(1286),PYS(128),Pe 
» 1¥£(128),P25(128) ,PZE(128), VXS(128),V¥S(128),VXE(128),VYE(128),NSI,*% 
e ANET,N,RETAS,BETAR, DELTAS, OFL TAZ, 32,P08(5),PDE(3),PKILL(128),PPATH(s 
° 3128),PFVADE (128), DIFTI,2ANGE(128),STATD, STATE» PGS(5),PKDS(5) ,POS(5¢ 
2 4),°1S(5),PCE(3),P0F(5),PI1F(3),CL2H,EVPH, WRANGE,BPS,BPE,PHIF,PHIS, Ae 
® 5. SUBF+ALSURS,STNPSE,STNPEV,M=C9,VNPCO,BSP,BEP»NR»K»EDEPTH.SDEPTH,RCo 
ry 6,°0S,FRWS,F1S,P1TS(128),FXS(128), 2NS(128),FNS(128),F0E,FBSF,F1E,F2Ee 
* 7+F2SePTE(128),FXF(128),PNE(128),=N5(12B) +XE+XSeSUMKIL« SUMEVA.PRE,P oe 
® 82K,PeE(3),AL PN, AL PYN,NSMAX,N=MAX * 
ry COMMON : ° 
ey C / STATIC / ry 
® (> NDSTAT, o 
% Cc NESTAT, 2 
® ty) PENFEIN(128) , ° 
° C PFRANG» * 
2 (7 PPATHM, ry 
- D PRANGE (128) ' ‘A 
* D PRANGS (12) , * 
* 9 PRPTEV(128) rn e 
® PRPTSFE (128) c * 
° 9) PSDETN(128) A ° 
e (3 PSRANG» ° 
° C SMPEDT, * 
% C SMPSDT, * 
ry (> SMTCNE, o 
* Cc SMICNS, * 
° 3) TCONEN(128) , * 
® rt) TCONSN(128) ’ * 
2 CpoUMMYB ry 
Utes e 
® NTIMEM = N = 4 e 
® PKILL(N) = PKILLON) oPPATHM * 
° 2PATH(N) = PPATH(N) @PPATHM . 
& PEVADE(N) = PEVADE(N) #PPATHM * 
° PEDETN(N) = PENEIN(N) @PRPTEV(NTI MEM) ® 
* PRANGE(N) = PRANGE(N) SPRPTEVCNTIMEM) * 
6 PRETEVIN) = PRPTEV(N) SPRPTEV(NTI MEM) * 
* TCONEN(N) = TCONEN(N) &PRPTEVONTIMEM) ® 
° PRANGS(N) = PRANGS(N) @PRPTSE(NTIMEM) * 
® PRETSE(N) = PRPTSE(N) @PRPTSECNTI MEM) * 
* 2SNETN(N) = PSNEIN(N) #PRPTSE(NTIMEM) * 
® TCONSN(N) = TCONSN(N) &PRPTSE (NTI MEY) ® 
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* RETURN * 
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2 END a 
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° Ss PRONE T ° 
aS ° 
eS See Se ee Se eee eS ee ee eS ee ee ee ee EE eee EE SPE eS Se 
a> ® te 
a> * oe 
ec eT eee ee LL ee ee ee See ee ee Eee ee co ee 
Ne * 
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* C 7 SIGNAL 7/ ey 
Fy n PRYSEV(128) , * 
2 1) PRYSSt (128) , ° 
2 8) PRNOEV (128) , * 
) D PRNOSF (128) ’ ° 
* 8) PROEFVA(128) ’ my 
° D PROSER(128) ‘ ° 
e D yAREyA (128) ' e 
2 D VARSER(128) F e 
2 0 GMUFVA(128) » t 
2 D GMUSER(128) , * 
ry ia} DEVAEV (428) ’ ry 
2 D DEVASE (128) , e 
* D DEMUEV(128) , ° 
2 D DEMUSE (128) r 2 
* C THREVA, * 
> Cc THRSER, e 
2 G NTIMEN * 
2S 2 
eo: GMUEyA( ) = MEAN OF SMOOTHED EyADER S/N * 
ae SMUSER( ) = MEAN OF SMOOTHED SEARCHER S/N * 
ac VAREVAC ) = VARIANCE OF SMOXTHED S/N FOR EVADER * 
es VARSER( ) = VARIANCE OF SMOTTHEN S/N FOR SEARCHER e 
a> PROSFR( ) = PRORARILITY OF XETECTION BY THE SEARCHER ® 
et PROEVAC ) = PRORABILITY OF DETECTION BY THE EVADER * 
aS e 
® PROSER(NTIMEN) = ® 
® E PAPERF( ( GMUSER(NTIMEN) - THRSER )/SORT(C VARSER(NTIMEN) ) ) ® | 
* PROEVACNTIMEN) = * ij § 
* — PAPERF( ( GMUFVACNTIMEN) = THREVA )/SQRTC VAREVACNTIMEN) ) ) « i 
PIPH HS OKC HEHSHORHHPHSH ESO PHF H AHO SHH RAG EHH ES HRS EKREEHRETAGA Feed aeteaeGaaetagig 
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eTRATVACOO SUBROUTINE RATRAC . 
e7StaTRood SUBROUTINE FOR Ray-TRACING ° 

SUBROUTINE . 

Ss RATRAC ° 
: . 
= POMOOEO EOE TESST EROSESSOE SEES EDF SEH SEL SSOSSESOOS OOP EEOOHOOELO DES ESLOC 
$ . ee 
: THIS IS THE Ray-!RACING PROG2A4 . 
$ ASSUMING THE RAY DOES NOT V=RTEX IN THIS DEPTH RANGE . 
s ° ° 


. 
. 
. 
° 
. 
. 
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. e 
. . 
. . 
. COMMON . 
e C / RaYTRa # . 
. c NCONCI, ° 
. c IN) TILK, e 
. Cc ZsTarRt, e 
. c 2? ’ ° 
. c SPVRSQ, . 
2 c ANGSTR, e 
. ¢ ANGARR, e 
. c ANGRIM, e 
. ¢ ANGSUR, ° 
° c SPDVER, . 
. c RANGE! . 
. COMMON e 
. C / \CONST e 
. c NUL APO, e 
. c DEPROT, . 
. D CONSG0(128) . . 
. 0 CONSG1(128) . « 
. D CONSG2(128) ’ . 
. D CONSV0(128) ° . 
e D DEL TAZ(12a) > e 
e Le] DEPKYOC 128) . ° 
. D SLOPEJ(128) . ° 
e D SPDKYD(428) ° 
e COMMON e 
. C /¢ PTHLNG / . 
e Cc ai Fs . 
. c 6! ° 
. c CDSaRD, e 
. c ct ’ ry 
e c Dl ’ 2 
. c oxpc . 
. € p21 r e 
« € o2™ . ° 
. c K ’ e 
« € PL ’ . 
e. c sé ‘ e 
e c v . e 
. Cc x . . 
e ¢ yi . . 
. Cc y2 ’ e 
e c TymMCON . 
et e 
eS al 2 DFPTH FROM END OF RaY PORTION TO TOP OF LAYER e 
et ALWAYS POSITIVE 02 ZER0 ° 
e2 ANGARR ® aNGLE (IN RADIAVS) AT ARRIVAL POINT (22) . 
et ANGBTM ® ANGLE (IN RADIANS) OF BOTTOM BOUNCE OF RAY ° 
ec AanGSTR ® ANGLE (IN RADIANS) OF START OF RAY (71) e 
as ANGSUR 2 ANGLE (IN RADIANS) OF SURFACE BOUNCE OF Ray r) 
Dies AR (> # ARRIVAL ANGLE (IN RADIANS) ° 
ec 88 ¢ ) ® BOTTOM BOUNCE ANGLE (IN RADIANS) e 
e> CONSGO¢ > © GO CONSTANT AS COMPUTED BY CONTINUOUS DERIVATIVE ROUT® 
es ONSGi( > = G1 CONSTANT AS -=OMPUTED BY CONTINUOUS DERIVATIVE ROUTe 
of ONSG2( ) = G2 EonsraNr AS TOMPyTED BY EonriNuoys DERIVATIVE ROuT® 
s CONSVO( >» © VO CONSTANT aS COMPUTED BY CONTINUOUS DERIVATIVE ROUTe 
e2 Cv = SEE -SPDVER- . 
ec OEPKYD( ») © DEPTH CIN K=YD) TO TOP OF LAYER FROM OCEAN SuRFACE . 
ec D022 = DEPTH FROM START OF RAY PORTION TO TOP OF LAYER e 
ec ALWAYS POSITIVE 08 2€20 . 
ec INTYLK B® INITIAL VALUE OF < 1,E. THE INITIAL STARTING LAYER) 
€ J = CONTROL SUBSCRI>T e 
3 NCONCI ® CONTROL PARAMETER FOR DIFFERENT SUBPROGRAMS To BE Gaus 
e2 NULAPO = NUMBER OF LAYERS 9LUS ONE 
et RANGET( ) © SUMMATION OF THE TOTAL RANGE THROUGH THE DIFFERENT ae 
e: SF (> © SURFACE ARRIVAL ANGLE (IN RADIANS) 
et SPDKYD¢ ») # SPEED OF SOUND >ROPAGATION CIN K-Y0/SEC) e 
ec: SPOVER 2 VERTEX velocity 1,&, SPFED gt VERTEX . 
ec Tt (> © ANGLE CIN RADIANS) ~ 
«2 Z1 = DEPTH OF START POINT OF RAY PORTION . 
et 22 = DEPTH CIN K-YD) OF ENDING DEPTH . 
et 7 © DEPTH OF END >OINT OF RAY PORTION . 
*2 7START ® STARTING DEPTH (IN <-YD) OF RAY . 
«> o 
. ATHIRD # 1,073.0 : 
. Zt @ 28TAaRT . 
° Ty © ANGSTR . 
e «K 2 INTTLK e 
. RANGET = 0.0 - 
. & # MORPNT( 22. DEPKYD, NULAP0 ) = 1 e 
. Te (UY .eQ, DEPKYDCK)) LAND, CTT WUT, 0.0) 2 Ke Ke ad . 
. Cy = SPDVER . 
. SPYRSO © 1,0/SPDVER/SPDVER . 
. e 
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+ rn CONTINUE ° to) 
a Ir€ CK .GT, Nim APOD OR, (K .LE. 0 DICALL DUMP ° 
. O71 = 2) - DFPK VICK) . 
° 73 = DEPKYN (Key) * , 
Se SE SOMERS HHE TH SH FeHRASHTHHOHZETHARL SGHOFHOHEROAEMEeKREOEHRReGECeDGeOHKEvBED { 
1 1 
’ I en 
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eee 29 SPOTHSPOHSOHSSH FE SHS CSAS SSHHOHSSSHFT ORE OHOHHATSAOEHOFHOHCHREGEHH SEACH SeROEBEES 
° tee TE .6Q, On} Raviie wali ne eile i} 
° eGo To a0 e 
CPSP PE SSSEPSSMOHEHEF FO SCHSSGAHRESTAAAGT FERS HSH RHHHHKSEHHSHOEOOKCHRESOCHDLODCASEO" De LI 
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ry ive % 60. 4 } @reeveedeccccerleseueeed 
° e G2 TO 140 ry 
POST SS SSESSSSSHSSHOSH KOS  SCHSHSSEHSSOSHHSHOSCTRO SST SSSOHOeeFSHSReoresesetcseseeevenrto } 
! | 
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SOMOS SHOHSE FHA SSH HOOK FRSSHSHSOHOFHOH OKC THHH OST HESSOHHOROHSHSETEREEHCHSeSEBEDOS 
. Wee Tl .GT. Q.0 ) Brg sveiviers lista siacereint 06 siefieieilimivis « sceick 
e ° GO TO 30 ° 
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° Call TRacerR( 1 ) . 
PPSCSESOSSSSFESOSSHK OS FISHOHSSHOSHSHOSESFGOS HHT eH HOOsHeFeoHEOHeEeHeOCeReOHeeoce 
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' 


1 
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PESO SOOO T OSE FTGOFOTSED STO FHSOHHOS SHR OOAHOOCOH SHH HS ESREHOHHOESHOSSSS HOOPER HED SD 
® 280 CONTINUE ry 
oe Yi 2 SAQRT( Y1 ) . 
* YY? 2 A] # P,MeRJeAy * CL PAPAL * 
SCOMFESOSOHSSFO HESS CSOT HSSSHTHO OHHH HHOSHC SOT SCH SSOHEESHESSEH eee eRe EHeOBOS 
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1 
° 20 CONTINUE ° 1 
. 7p 3 DEPKYN(K) ° 1 
SOS OPO SOMETEDSH EH BET SSOSSTOTESSHODOTOHT SH TSO THK SEOHHOSSEHERSHOCeSEeOBEEOS OS 1 ™ 
! 1 
OG scevecerreretercreseerereerceerencetaseolonetos seceresle ate 
1 1 ] 
COSTE POO SOMSEHS ESSE LOTT EGOHSHEHESHD OOOOH TCOHCHSECSHH SHOES HE OEHSHHECOOHLEEEEED I ; 
° 30 CONTINUE ° 1 i} 
. DuMMYi = ZR - 71 e I 
COSTES SCHOSOSSTAS OSES GST OHSSHSHHOHOHHE HF FOHTC OH HSCOFSHSFeSHescoseSeteaseetanra 1 
1 [ ) 
1 1 j 
I 1 i 
SSPE CSC HSHHSSSTHS GEES HHP SMS MSHS KHOSTES HOD FSHS ORF HHHSTSHOCSS RGSS eCHHeT Sees eceoss { ad 
2 Fee FY LEO, O20 3 Weezer sills ob Mieiae bow ws 
° 2 60 TO 370 ° 1 
SOMO SSOTSSHHSFOH TSS S OSHS SSHSHKHEOBHSHSF Oe SHC Sh eoeselCeFesecseseaesaoeaeagosiag 1 | 
1 1 ; 
I 1 | 
1 ‘{ a 
TOSKC SSOP THSSFSH OHH HCA OFHSHHSHSHHSoOoOHHFHOSSHOHESOeSHFHSHeeoeeeHneXeceseaosre ! 
° Al ® CONSVO(KE - SPVRSQ ° 1 
2 A6 & AleCONSG2(K) ° 1 
° 31 2 Ag * CONSGO(K)/2.0 * 1 
o CI = ABeCONSG2(K) + CONSGICK) e i! 
| . Ay # ZR = NEPKyD(K) ° [ 
E ° O74 2 0,5e( D71 * al) e ! 
} ° Yy a Al © 2.00eR1°DZ21 ¢ Clenz19921 * 1 | 
t PFOSMSHCSSSHSSAPSHSHOTHOSTOSSSHSH SHEESH OHOHHHESHECHHSHHHHH HH EEHEESESHE SES HH EOEE 1 | 
| if 1 
; 1 ! -4 
i i 1 
; POST SSHHSSHSSHSHOSHTCHSSTFHSHOHSFHSHHEC TOF HSCHSSHHSECHEHOSE HEEL eOEOCHOCSSHOHHEoLO i 
. Fe v4 .GE. 0.0 ? Biecwmennnl-wes oe a | 
° * 69 TO 280 e 1 { 
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e ee ¥2. GE, 009°) 
. 2 G9 TO 290 ° 
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° Y2 « 0.0 e 

° CaLlL TRaCER( 2 ) . 
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PR@TOCCHHPOSFO ECHO TH SET TOOOSEOHO SES OOD OOOOH UNECE eeecce eteetovoe 
® 299 CONTINUE e 
° v2 8 sart¢ v2 5 . 
5 Or = Dummyas¢ vt ¢ v2) é, 
* a7 = plep! ° 
e CDSQRD = Clea? e 
POSOCPSOSSPSSSHTSHSSFSHESHHSSESEH FET TS FEST SECHPSHEEEEOH HSS EEHEEOEHSO EEE OSES 
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1 
SPOPOCTFSSOSSSHTOSCTFOSOSESESSSHSEHTOOEROTS OST SPOS SE RESESESEESEESE OSE SZELESOO 
e IF¢ aBS¢ CNSQRN ) .GE. 0.5 ) . 
° * GO TO 170 ym 
POMTOTEHHSSSEHAHHTAISGHCHHSSHEOHESEH OOOH SSCOSESEE RESETS ESE EEEESH SOLE SESESEDS 
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I 
POSCTTFOHSHHSOTHOSP OPO GST ASSO HOEHOEESHEESTOSSSTSS ES SESHOSESESOSESEOC ESOS ESEENS 
. SM » ATHIRD . 
° PowRCOD = Sw o 
TPSSOSCOHSHSHSHHSSHSCHOTCHSSSOHOHASHSH HSE SESH OSHHEHEEESSSEESH SESE SOESES SER EEEEEE 
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if 
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PRPOCSCSHSHSSESHSHSHSSSSTSSOFSHSSSHHSSSSSSH SSH ETH HSSESSHSSERESESESEESESECH SSE HSEESS 
° Do 200 . 
° if 1 = 2,50 ° 
SRSSCHHCSHSSSHHSSHSHSSSSSSOSSSHSHHHHSHHEEETHSSESSESEESSHSFERESCFOSHSESSSCZECEEOS 
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if 

I 
POSSCSRSSSHSSHHSHSHSSSTOHOTESHSSSHSHSSEEHSOHETH SHES ESSEHOSERGSSESSESEH ASSES EOES 
. a5 ® 21 - 1 « 
e POWRCD = POWRCD®CDSORDeA5/( AS * 2,0 ) . 
. SM # POWRCD * SM . 
SCSFTSORSSHSSSSPSSHSESOCOSATFSSHSSHSHHSSH SS OHHTCSSTESSSHSHSSSHSSERESEES HOSES ESESEE 

I 

if 

I 
FESSSTSSSHSESFHRASSLAC FO OOH SSSHSSOSSSSSOOHSSS OST HSCSEHOSSHES LE SHHHSEHESESEES ERED 
. IF( ABS( POWRCD ) LT, 1,0E-4 ) 
. e gO TO 40 . 
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® 200 CONTINUE ° 
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Ole ccecwcrccccveerevereeseneeerveseses 
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SOSTESSSSHCSSSSSHHSHSOROHEHESOHSSHESE SHEESH OCETHES HEHE HSOHESEEHSHSSES OLEH REDE 
® 40 CONTINUE - ° 
° SM @ SMea7 : . 
SCOPES SOHO SESHSSEH HEHEHE TOESHESHSSHRSESSSOFHSHSOHE SO SESSSESSHHHOHESHHEOP OSES 
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. 50 CONTINUE ° 
« K # DI/SPDVERe( 2,0 * CONSG2(K)o( DZi * AL) * . 
° E ¢ CONSG1(K)*2.0 ~ CONSGO(K)®CONSG2(K) )#SM ) * 
. RaNgeT = aBS( x ) © RANGeT . 
. Tee NCONCL .NE. 1 > CALL ¢ 
7 s RAYPTH . 
© 69 CONTINUE . 
PPO PESSSSEOS SESS SHS SHSOTESETOSSEEGEFEEEHOTSEHSHEEHOH HH EHEEHEELEEHOHOEOES 
if 
! 
! x 
COREE ERROR ESSE TESTES SASHE SSE SEVESERE ESS SSSS SOSH SH SSESGOHHOHOSEHO REESE 
. 72) e 
. . 
OORT ERE RET ORT E FOO SR SOOO SEH ET ESTEE TEHEHEESEHESHLEHEHOHOCH SHEE EEES 
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eTRaYZTLoO SUBROUTINE RAYCTL * 
eZSRayYc SUBROUTINE FOR SETTING UP PROPER RAY TABLES . 
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ec . 
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et . 
° CONMON . 
. C / CONSTN / ° 
. (- DEPSER, ° 
. c NCONSK, . 
. c SPATSE, e 
. c DEPEVA, . 
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°c ANGARR S ANGLE (IN RADIANS) OF ARRIVAL AT Z2 . 
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«Ct DEPKYD«( » = DEPTH (IN K*¥D) TO TOP OF LAYER FROM OCEAN SURFACE . 
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. acer = 
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° EQUIVALENCE . 

« Q ¢ SVECTR, SO1 ), ° 

° Q@ ( SVECTR(9.2), SNP VA e 
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es NREAM2 ® DEPRESSION ANGL= FOR EVADER STEERING ie 

et OTRSON(,,) © DIRECTIVITY INDSx FIR SONAR . 
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ec Vv ® PROPAGATION sPEED AT END POINT OF RAY (Ke 

ot xS0 ® SFE ~AMLSRO- (SQRe 
«> xsp & SURFACE DUCT COVSTANT ° 
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COMMON 
€ 7 SiGNat / 
PRYSEV(128) 
PRYSSF (128) 
PRNOEV(12A) 
PRNOSE (128) 
PROEVA(128) 
PROSER(128) 
VAREVA(128) 
VARSER(328) 
GMUFVA(128) 
GMUSER (128) 
DEVAEV(128) 
DEvaSt (128) 
DEMUEV (128) 
DEMUSE (128) 
THREVA, 
THRSER, 
NTIMEN 
19 ONEs#1,PROSER(N) 
TWOR1,-PROFVA(N) 
THREE 84, -PROSFR(N) oPRK 
FouR # PROSER(N) 
FIVE = PROFVA(N) 


eee ee eee eee eee 


oOoOnvsecVv VOVVUCVTITITI 


hay 


PHE(1) = FIVE 

PpS(1) = FOUR 

PRNOEV(1) & TWO 

PRNOSE(1) & ONE /THREE 

PRYGEV(1) © FIVE 

PRYSSE(1) 2 FOUR|( 1,0 - PRK )/THREE 


oO 


PpS(2) = FOUR 

POEC?) = FIVE 

PRNOSE(2) = 1,0 = PROSERI(N) 
PRySSE(2) = FOUR 


“2 


PGE(3) = TWO 
PGS(3) = FOUR 


aa 


PGS(4) © FOUR 


eeeteovoeevpe eee eeeeeseevneeeseeeeooeceseeeveeeeeeseevteeeeseeceeeoeescee eos 


a 


° PGS(5) s0NE 

EPSPS HSHSHOHSHSHAIOHOCOSCHSHHSHETH SSH EHHOOHHHHTSSHHSEHHHHS RHE SAFER HEH EEE ERS 
1 
! 
I 


SPHSCHSSHHHHHEHESEH OTK CHOKES ERHEHSHEHHOHHEHHHEFTSECHHeSEHHOSHHHeATEHHHHORSeHOeaEE 
. RETURN e 


SOSPSHHSHSHSRSSSHHHHOHSTSOHSH HARE HHHHSHH HH HEH OHHH HReEC HOH EHAOHASSHRAGEREAeLE 


POS SSHSSHHSHHSAHELUEHOCHHSHEHPHEHHHEHHHFHESHHHHTHHHHEOHESECSHHREAHHSEHACECEHEHEES 
ec cs 
SOMO OCOMOHEPOO HORSE HO HTSOSOTOSE SOREN EHH RO ORHOHOROROOORESEOLOOSESOROREO CESS 


1 

I 
SRSVCSHAHHHSSHSSHEHHHTHHFHHSHHHSHHSSHEHHHHHEHHSHTEAHESEHHOHEHAHREHOHOAOEHAESEEES 
° END ° 


SPSSHHHHHHSESHHHHHEHHHTHHHOHESEHHHHOHHHHETCHOHOOCHOHEEESHEHRREHHOCHHRO SOOTHE BES 


123 


CEN IRANCE? 


! 
OHOOS MSH TAH ARHHHRHO OH AHORA SHH HKHOKAHSHMTEH KO HROMPSHHEHHHHHOHeEHAHOHOHeeHeHeece 
eZTVL310900 FUNCTION  TNLG10 « 
et CONVERTS DUMMY VA_UE TO DB ° 
* FUNCTION TNL GLO( DUMMY ) ° 
e> ° 
as SLASH SHHHHO EST HOCH HAHHMHHRHHHUA LAOH OK AETOHOHH HEHEHE GareHeReXeuseEoeune 
a> e ee 
o> COMPYTES DR VAL ye ySING ALGORITHM OF 4OeLOG! yALYE ) ° 
el ° ee 
eS HOSSH UH HFHO LOK RAOHROHSHHHOOHEOA DUH ORT EAH OFOFHHHHHHHasceeesereseeeteere 
e> * 
POSKALLARREMSM HHA O TOKEN OPH HHHHHHAOHAKEHHAHT ETC HHHOROHC HR SE HERHOTORH ROH EES 

1 

1 

1 
POSH HHH SHO PHFHHKAHHFHOSMHFASP HH BHAHHHHREHHEHTEEHHOHSHHHHRRTDHEHHHOCRRCREeHRHE 
° IF € DUMMY1 LE. 1,0E-35 ) . 
° » GO TO 10 * 
SOSSCH HM AHKHAFHE ROH KOH HEE HTHE BHR HH HOTA MHF eeHreHesHeeHSHaseeeGeEtaeendaetig 

] 

I 

i 
CPST S HK MOK SMLHOHHOH UO HS OCRAHOHERTOFOT HO OCAHT OATH OHEOEMHMH BET AMOMECHADEMeHDE 
° TF¢ DUMMYY GE. 1,08¢55 ) ry 
° ® 49 TO 20 e 
SPSCHHHHHCSSHH SAME OHHH LH HRHHEHHROKRHHEUNRHKUEHUHCHHHHHROHHH HET HeHOHHHEDe HARES 

I 

! 

! 
SOSPHHOSHMSHSHHVHL HE VE FOTOS HHRHFHOHEFT UO HARASS HHHHHEHHHHH HHA HEHEHE EH HR EHEHHY 
° TNLG10 = If, Q@e¢ALOGt0¢ DUMMY? >) « 
SHPSOSMHSHSSHHHSFHKHKHMHHRHRHHHHHRE HEH HVFVAGK HEM SLSR HHeHFHHegeneHeeeeeHateneneue 

! 

| 

] 
PROM HSFHOFOHHHSHHHHH TH GOMCHOHSHHHHHSHH HHH HHT HOCH HOHHHEHE HHA EOHHHECHHeEEeEHED 
* RFE TURN « 


SAGO SHKSHSSSKRSGHGHKLOHHBAHHHHAHHEHREHHHHHHRECSHOFCHOHSHESHORR RH HREHHEHHHHGRHeAHDE 


PTOFA FHM HSSHFSHHHOS STE LOM AHHHHHHHHHHE TH HHHRHHTHHHHHHHEHHEHRHHAHHEHHHRHEHEHBLE 


ec e 
POMKHHHHAMOSFH HTH EE TOK HROMHREOHGETHH ORO HHHKREHDSKHHHHSHHHR RHA HReHFeeHeneaegreuinan 
1 

ler rrcrerrr ee Chae eT CRATE 

1 
BOSH OOS HHSHKHHHKOHHE HHT HHROHSHKARHH HHH HHA K HHH SHHHHHRAHHAGAHEHSHFHGaesoageovva 
° 10 CONTINUE . 
° TNLG10 = ~350.0 ° 
POSHRHHKHOHHSSHSHSH HEHE HHH HAH HHRAEHRAHHRAHOHRHHKERHEHHHAHHeHReeaeeasseehanengceane 

1 

| 

| 


eeerve 


eeeves 


etevee 


Oy oe wes oe cs ee os oe os ane one one os 0 Os 8 ome ome as one us ns Onn Ons nn Od ne ome © 


eee ee A 


ee ee 


we ee oe 


— 


I 
I 


SOCSMM HRS PSASLMSHSK KT ERT HHHMKHHOSHRE HHO E Hr ovr eteseasOHGeasoFeHesreaGeeeeaua 
e Qe TURN ° 


POPC SSC SSHSSVRSOHSH HOC SSF RHOHORHDHOHHRHHOHH HORT Oe SOHO GHESHHHGEHERTERET OREO eauveE 


SOSM HHO HSHSOHSSHCEHSHOHHS AH HOSP HHH HSFSO GHOST OHHM HOKE OeF HEHE HHHHORHensaneoeteae eeate 


o> ° 
SPSOHMPEOSRASKRSHHHE OKO K HV HP eFBeMeteeHot reset aedceoeeesFenwaerc eee eneosseonsre 


Ores va fo lavavevetelsta  bisch 070 ocaihilseeusi as canna cee iaveiy [snete lesley cere. 6: la 8s ©1aim 


I 
PPSCS MSS SSSSTHOTHH HCH OHSTFHOSHO HHH RAT HTFE RH HHO THEC HE HHEHMECHE RD EAIHHHHeHHAeeHoee 
° 29 CONTINUE ° 
° TNLGL1O = *350,0 ® 
SPSPHOOPSHOHRSARHOHSHOKHE FHS EHTHOMRAHO DORA GEE TESST HTTP GHEFTLATLHOUEKR EHH SHEP DOLD 

I 

I 

i 
eterooeeove SRVA OTTO HM PSMH RTOS HOKBHVEMP OHHH eT HSE HPHOHFEHAEHTECHHHFCeReOeeeOoS 
* RETYRN « 


POOF TF OO SHOOTARRHAHE BSE TAMSHKAHHHARH HOKE HT O HT SH ODO REHHPHAHPHEOHHETCHRHOHOH ODS 


AROTOOASOHOH HH OHMTHOA TORAH KETO P HOHE EHRE EDAD TOT AOE RHOMHOADAHOHHAHEDOTEM HOHE 


o> ry 
PROVES HEOEPOOOOOH DO DOCH HOHOBOHTHA HMO P AH OETETOTORTOMOOHEDAHOTENOERDeDERNS 
1 
I 
1 
POOR ONO HOOPHHMETH SV FAAAMORNOOHRETEOHA RTS H TECH HOOEROROEROEHROEHOEOO ROR ELE 
° END ® 


POPU SHOP HHHSFAO HH HE PORE HAE HOHR HDHD HER OHH RAS OHNE HERO O HH REET EHe RHA edHeta 


CO eee oe mee ens ee fs es om me ae ee 


cE RNa 
I 


RESP HFG SSFSFOT SEA SE ORTHO HHE REET ET HEC EEE OHTA EEGEEEHGE REE EEHOH eed Heady 


@OTRATERDOO SUBROUTINE TRACER ) 
#SERROROOO DEBUG PRINTOUT SHOWINGS PROGRAM FLOW o 
° SUBROUTINE e 
« S TRACER ry 
® S ( NNFLAG) « 
a5 e 
as PSHPSHAOTTH HSU HOES FEEEOTOO PATE RHP EC PROMO OE HHOTHOGEETEEEETHeGeGEtanae 
a> Cy oe 
a> ® o 
é> PRHSMHSHAHGEREHHURPEHEETEEGEEEHEC HED RETF HH HEHEHE ae GHeeePetdgseGeetadcig 
es * 
e WRITE(6,90N00) NNELAG ; 
SROEVSS PSS SOSHOHAMHHAOAHEHHSEFES TMAH POSE HH HS FHH EH EGOTHOROEEEEHHET EKO EGET 
| 


I 
I 


HSSSSCSH FH HSFHHTEGEH OUGHT HH HH RHRDEARHEC HET HEHEHE HORE OH OH desde eia 


* RETURN ° 


SPSS SHOT SRO HOKE HEP HHH OPH HEEET HE HHKHH EK HAHST HHH HEO SOS SHHEE SH HHEGHEHEC OREN HBee 


SHS SASHSHHHHPELHK EST HHH PEPE HE HSA RHEE HEHE HOARE EO RHEE HHHEHEHPEGeEtaace 


#6 * 
#90000 FORMAT(BH FLAG = 14///) r 
ac ry 
PRHSPHHHSHRSHSHHHHSHTHHFE SHE SHESHESHEHHAH HEHE HHH HHH HEHEHEHEEHEOHHHRGHAHEEEEKREREKDaEA HE 

1 

I 

! 
HHSRMHGAHSHSHREAEHHHAGHE FH PEOEEHHHHHREHDHHHHETHARREH EK HBHEEETH HEHEHE GESEH EHH eeHada 
€ END « 


PHGSCHHHSHHHHAHEHKHAHAGEHETEGHEHHE EEE HOH HRHSHetC Aer HF HeeeeOhGeenscatagteeCdaedgeetanse 


SENSE SUSE? 
I 


HOSEL SHS HHCeSRHSHAAE SC SHOH BES eeBHADe HAO KTH OPA HESSHSSHGESEFE RH AHVEHHOCHHOLHEERES 
elTRES PROBABRI( ITy TREE ° 
POLSKA SMS HHS AGSOT OHH HROSAORAOOCH HEE ATER HAF OCHESSHP HGH THSHFSHLKLHReHPEeBebOD 
7 ° 
oGENERATION OF NS,NE& TARLES NEF PRO TREE ° 

e « 
PHT HK FOAMS GeH SoG HHA GK SSSGHEEGaG Garret esr Hel POHHHHHHEHH Beso eCenreeahenian 
SyRROYTINE PTREE r) 
COMMON /CAREL 7 RI,ROG,SS2,SE1, 481, HED, PXS(128),PXE(128),PYS(128),Pe 
LYF (4269,P25(128) ,PZE (128). VXS(129),V¥S(128) -VXE(128) »VYE (128) NSI oe 
ONE TN, RETAS, Ke TAG DELTAS, DEL TAC, 32,PNS(5),PDE(3), PKILL (128) ,PPATH( o 
3128) PEVADF (428), DIF TI, RANGE (128),STATO, STATE, PGS(5),PKDS(5),POS(5e@ 
4),°18¢(5),PGE(3),POF(S),PIE(3),CL2H,EVPH, WRANGE,BPS,BPE,PHIE,PHIS,Ae 
5LSURE» ALSURS»STNPSEsSTNPFEV.M=CO+NPCO,BSP»>BEPoNR»K,»EDEPTH»SDEPTH.RCo 
6.F OS,FRWS,F1S,PTS(128),FXS(128), 2NS(128),FNS(128),F0E,FBSE,FIE,F2Ee 
PoP 2SePYECI 2B), FXE (128) .PNE(128) »=NE(128) »XEoXSoSUMKIL » SUMEVA,PRE, Pe 
BRK, PE(S),ALPXN, ALPYN, NSMAX, N=MAX > 
NF ls4 r 
NSTI 84 « 
ENTRY TWO e 
e 

* 


e242 03 0309) 


NETaNET,1 
PSM HHH Oot eG GOs HG oH RHC AFH HSHH HEHE BAKER ac aGeHOeHSeGESGoecaseGevransesoaer 
1 
Li eC iy MOOI ak yep MO HI ae VU Pe BOE BE CNC CIE PT 
SKS HTH KS HKSAR OAKS POFFO RFMeRH eo RRetascEtC segs FK evens enveveseneneenaua 
° 70 TF(NEI.GT.,NEMAX) GO TO 40 ° 
SEHK HRS EHSAPH EHF eek aeFeseGeegeHnesc ett accerPsereaeessenpaerseraenvreseesoesana 
I 
HSM SF OCARFSSH HOS AEST HOR O ese KF HHH aoe He Peer Rear SetGseeeaOeooeeseseeseeoGeateone 
e NR=2 ry 
POS oooh seHSGGeGacvsd Font eFaeeees ose e onder eetaeraeHacsecasetvaecgeecereetaegegaeca 
1 
1 
EPSCOH FA SHMOR HERO H SSE SEER TOME OROTTHE DOMT ETH RU OC OREO ROHHRERORHORER HEBER REHS 
° RETURN a 


SPHO SR HSS HHHTS HC HOH HOO eHHHHHRHOHHo Heo HHt Here esHeHAGHsenceesesesatagteaaena 


soteanseeeaeaeceese eee eee sa & 


st I ee aC a a ee ee 


l 
POSKHHHAOHHSHHHHOHSHHLSH RHF EHHHHHHEHGH HH AHHH AH AGEN SKAKERHSHEHSEREHHHHHAG RHE ReEEEe 
° 40 NEISNSI ° 
* NSTeNSIo4 ) 
EPSRC HOHRHHOSHSHHHHSKEHOP HSH HHOHSHSOHHHEHTFGHHKEHVEGCHEHEREHEHHRHSSeHHHHHBAGE PREAH S 

I 

I 

I 
SRST HSRSHHHKSHHRASE ROS HH HEREOF HHSSG RHE HGF THH ee RSHHCHERHHHHRSSHHHHHRHHRHAGEHRERLA 
* IF (NST.GT.NSMAX) GO TO 50 Bornes 
SRSEGA HOH ROSSOSARSEUOMARHOHEETHREGO HE ARFHSLHASTHEKKSSHKHSHSS SSP RHSHOSSL HHP HHHBHeon 

} 

} 

} 

] 

! 

SOSFCHOFHSSPSPAH THAT HEHOHLEKHHHHHHHH HHA HOVER R aS Hr HeHRHERRKRERSGHHHREREHEHOSCRESERDE 

° NReJ e 

SPSL SHVHHPHFSH HHH LHF HH KC HH HSH KReseceaHOKFasoaer SHaHeaelesHeaHeeseesaatagtaagia 
I 


A) 
I 
I 


served ececece 


| 
I 
1 
I 
1 
1 
I 
| 
[ 
t 
I 
I 
I 
I 
! 
1 
1 
! 
] 
] 
J 
I 
I 
1 
I 
I 
I 
| 
I 
I 
I 
1 
I 
I 
I 


eetevae 


a  ) 


—— tt tt et me DS 


; 
| 


— 


Ae ee Ae lan a 


if 

I 
POPS SLOT POPMH TOME OOO S MOSH OHHTEOMHEHINAOA SHOR SHOOCH SE RETO ROTO LORE OOD 
e RETURN ° 
POOP A ALAS POSRHSARSOE ORO HOHHRASTOSHRHFHOAHTO PMO HTHMOCOROOHHEROOHHORO ROHS 


Aleve vn vvercerearedenersreserertentereseteseehenenere 


SPHSForc FSH S@ FF ae Goo Cease sGHeenseosw Ho haotvaareoseseeeeSFeneceeseeseseeeeeere 
° 59 NR24 ° 
PHSOTSHC VCS SOS HSAH SHAH CHE SOFHHTHROF AGED FFL eer eeHeKFaeveeHeHGeanseeeseeeaedeeeeerea 


PFSNCSCFCHS SH HSSSH AHHH OH eT GHHSH HE HBA HF HH HHH HaF eX aHHeeFeSEHoseeesSFGeGegsveavne 
° RETURN e 


SHESFCH OF HOH FH OSHA HAHC OTHE FH SSH GEDA DEH HTH TOCHHFEHC SHH HOHHHSHERHHOHHHEHHOHOPHBVE 


SVSCSAH SH SSS FSH Heese Hpi vVvFssoasees vat ot IFFGeasrseHsaeseeHHGeageseseeeseeHeGagevaeana 
® ENTRY THREE ° 
) NST@NST41 ) 
PHSFF FF HSSSSHSSHARHHH HOF FHF HHHHSGaHBeFs Fase OF ors oes ecCHesssEHRFeatecesveeceaesegsasig 

if 

| 

if 
SPSK ST SA HE SFSSRHOHKGH HGH eS eHSHO HSH HBHe ao toe Feet sor SsHessHFSRHanesessSeHasaevgsevsea 
. IF (NST.GT.NSMAX) GO TO 60 Car 
SPSL SSCS SHS SSFHSM HSS SHO CSP HHS HO DeGHaH HEF oR oor HKG HeHeHeFHHeesHeeSHFeFHeeseavaaia 

I 

I 

i 
HHSC SSS SHSSSSSHSAHHOT OHS KH eHh Had vO es Baer vec HOH HeHKFKGHeeHseSHeHHateasegve 
e NR33 ° 
SPPFSFHOKCS SoH SAGSaeH#ol i ager IAelFeseverHogaeasn Rt eet ovo aveveaeessHKneaeeeeseeienseeeavve 

I 

I 

I 
PSSHF SF HCSHSHSHSHSHSHH SH HoH LHS FHess Oa HERE Herve eH HFeceeeFFHteaeeeeFeFHaeGeatanve 
. RETURN = 


POSS HFHOSHHSFHAGHSEC HSCF HSHHAHAOHHHH RTH HH HST OHS SFH HHH SSF eeTeHGHFFSatoetaasea 


ee ee ee a ees ee ee eee ee 


| ve | 


RRR EER CT ORC Re ae a A 


SPPCTHOHSOOHRHHSHHTHO OCU AIAHOMOHOEDTDEHOATEHOEHTOHHHORSHERHHELEOCOERER ROE RORHLE 
° 60 NEI ® NEI + 1 ® 
® NSIT eNE! ° 


FROSFHSTSESSHSSSHSHHGTHIFAGIOHHHHHHFHHHO HHL HEH HHH HOPS HH HHHHHHHRDHHHHwWCORHHEHEEOS 


POSVHESHS SASHA STHHE HATE HHHSHHSRHHH AH TOTEHTHHTHEHHHHSHHHSEREHHHHHEHH HOR HH HR HS 


a 60 TO 70 Peeeves 


POSMSSHOSHSFHSFHHHHHKTHHO THO OHFHSPHHRAHH HHH HHH HHSCHHHHHHEHHA HHH HRAHHEEHHHEHHE HR HHS i) 


SOHC AT THO SSSSIHHTHHGAE HEL HOFHHOHHHHHEHOHHHHHCHSHEOSHKHHHEHHHHHHEHEHHHHRCERH HEH | 3 
* EnD ry u : 


POMHHOHSHSSSHSSHHHAH OOO HSHPOHHSEHHSHSOHHRHTHSHHTHHSHHHHEHEHERHHHHGHHHEGERHHRELE * 


Ups 
128 q! ‘ 


| 
§ 
¢ 
‘ 


se . menenceres nna - -_ cn AS IED 


ee bee arenes} 
. Ps dine 


CENTRANCE) 
' 


eee 


i 
PTS LOKSATTA SLE HHA HHTORFAPH SME HS HOKH HK EOF AHHF SoC oOeDHoeeeFeHaeeeseeeeGeGeataetue 
UrDAY UPDATE (MAIN suH) e 
PE SPORHSSMHHHAEAOK STC HOM SAH EHSAHHEHHAOAHAOHHFSH ORAM ERHOOMEKeFOBeBGeeeevetduea 
* 


2 


c242 2 


e 
* UPDATING SHIP MOTION TO) NEXT TIME INTERVAL 
e MECO = FSCAPE COURSE OPTIONS 

® NPCO aPURSET! CouRSE aPTTONS 

* MECO s¢ TMPLIFS INVERSE 8 QIDER 

2 MEcO s2 IMPLIES NYSE 

2 SECO a8 IMFLIFS SAME COURSE 

e PCO 39 IMPLIFS A RIDER 

o NPCO 2? IMPLIFS COLLIS 

® NPCO a3 IMPLIES SAME COURSE 

> 
a 


SESH SSSSHOFAE TOA H MF ORHSSHGHTBHAe A BoFrF PFO F eR eaKneseseseenvaHsseeensesseace 
SUBROUTINE UPDATE « 
COMMON /LAREL/ RI,RCJ,SS1,SE1,HS1,4E1,PXS(128),PXE(128),PYS(128),Pe 

LYE (428),PZ680128).P7E 0128). VKS5(129),VY¥S(1 28)» VME(128) VYE(128)0NSI.@ 
ANe TaN RETAS, PETAL MEL TAS. DEL TAG, 32,P0S(5),PDE(S),PKILL (128) PPATH(« 
3128), PEVADE (128), DIF TI, RANGE (12B),STATD, STATE, PGS(5),PKDS(S),POS(5e 
4), 71865) PGECS), POEC3S),PIE(S),CL2H,EVPH, WRANGE,BPS,BPF,PHIF,PHIS; Ae 
SLSUBF. aL SURS.STNPSE,»STNPEV,M=CO,NPCO,BSP.BEPeNR»K  EDEP THe SDEPTH RC} 
6. FOS, FRWS,FIS,PTS(128),FXS(128), 2INS(128),FNS(128),F 0E,FBSE,F1E,F2Ee 
7,F 2S, PYE(128) ,FXE(128),PNE( 178), ©NE(128),XE,XS,SUMKIL, SUMEVA, PRE, Po 
AR PE CR). AL PXN, AL PYN,NSMAX,N=MAX ° 
TOMMON ¢ INTSPN 7 VyFINT, VYSINT ° 

e 

VXEINT = INITIAL FyADER SPFED IN X-DIRECTION (Ke 

VYEINT = (NIT Tlal EVANER SOSED IN YeDIRECTION (Ke 

° 


GPCR CECOCE CID CECH CRE 


cacraaea 


Lahti te 


NSUBIEN-1 ° 
DIFPYsPYE (NSURT)-PYSCNSUAL) e 
DIF pXspXF (NSIIQ, )-pXS(NSURY) e 
PESMAG@SQRI (DIFP Xee2eDIFPYeer) e 
ALP UNS CPXE CNSURL)-PXSCNSUQ4)) Z79ESMAG e 
ALP YNSCPYE(NSUL) =PYS(NSUH1))/72ESMaG ry 
PTT rerrrT TTT Terre Tere rerer eT ere rr er Terr errrrrrTy rrr rr rere rr rrr ye ye tye rr 
[ 
! 
i 
POL F GOH FOHSFHHO HM OTF OF THOMA Ee EHH OTHERS Kec HORA RHHFOSeneneeesGCGedsaeaagre 


2 
* Tr C CEVPH LEQ, 0.0) .OR, (MESO .£0. 3) ) yey AD. 
r 
% 


»ee4e#41iepe es eevee eeeeee eee eee ee eeee eee eeee 


# GO TO 2e ° 
POOR KFSOFSeSFHSHA OK Feet HAHORAFeGasF oF Fe HR ana reHenseassFeeanceesesetenegagaagagoag 
! 
| 
| 
AHESKSE SSO APEPISL FAH KGL K SKS HHS SSH HHH HO PoP HRO RA THeHeHFeHSHEHHEHRHHHHERSFOR HRB RODE 
® 1F¢ MECO .FQ. 2 ) ®oeee 
° ® GO TO 10 e 


PSRSKC FOES SFSSRHHHPEO KCK EOC EFFEC OTAAGAHETP RAC Ke C HHS HO KFEHH SHR SS HBHHGeH eH eHABnG 


Sh SiN eR ATRL O NAA Uy bee i SEIN RN 


eres weed 


Ab dep aS th int 


SOSOHHMRAFOSRHF HHH OG ee O KROSS HAATHO HH HF HAH a aT HOH SHHRHHHSFGAKRAETECSHFHSECERHP BBO A 
*# 249 CALL INVAR} ry 
BOSOM HHA HHSHSHHH HEE HOHE HRMOTHOHR AEF OaH ATE BOE Rea H Hen HeAeeeGeeggeeHesVenveseaava 
i 
I 
! 
SOHO HKAHHHFHPHHSHH HH HK OCHO RSHHHHHFH LH H SHAD SADT HORA SHOHHOHHAHEHHOHEHHEBEREEH LE 
cy GO TQ 30 Ovevans 


POSH STFS HFHSHS HSA SSH OHTHKSRHRHHT HR OHHHEKC eG oSHoHOKe HH e RHR HREREKEHeHERBERGAEHE 


deaant | 


AHSKH OTOH FSHHHAFEG THO KK FHSHHHHHKBAH HOHE A AN DFA THSHHHASHHHHHHHHHHHEKRH HEROES 
ec ® 
SPHSMCS HSE HLAHHTRHAHH OTOH HOSS HHHHSHFHHHHRHKCHHTHATHEHKHHHHHHOC HHH REEHHOEHAHARRBOE HE 


I 


MERE ER CRA RAE OR RRA RAE REE EE EO es 


ee ten tee hee Nee ee ee ee ee ed eel 


l 
i 
t 
i 
I 
| 
! 
1 
| 
! 
| 
| 
! 
1 
! 
t 
I 
I 
t 
i 
| 
t 
0 


te ee et ee ee ee ee 


129 


f 
: 
d 
I 
J 
j 
I 
I 
[ 
[ 
[ 
[ 
l 
7 
i 
3 
E 
i 
f 


SOSSSTEFSOSHSAO ROFL HOO VOKH SCHHAHHTA Ga AF eer ORF HO aT aH He BeeeFeeeeeeseseveveveesers 
e 10 CONTINUE e 
® 3799 Carl NTSF ° 
POSH SCHKSSFePPFSHGHSFH SS HSB OSSeFASFFa vet HVC es Foe Seeereazeeeseeeneseveceveeaeegagave 

! 

! 

! 
SPOTS HAASSMSAPSROCHSE HH GABESSST FOF MS VOT HHMOHHHA GET ME RTTSRASHSHESTEHHHH MOOS De HEDIS 
. G2 TO 30 ® 


PPSMO SS SOHASTOAPHAOHH HST ARAAFRAGIFHOHFARF HHO RHC SKRFHKHOEHHHOREDEHHEHH OE ORHeDEee 
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